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Editorial 


Enfin il est là : on peut le commander, certains 1' 
ont déjà, le Spectrum n'est plus un privilège pour 
étrangers Palais et Non-Sécamais. Tous les visiteurs 
de Micro-Expo ont pu manipuler ses touches volupteu- 
ses en caoutchouc... Pour nous c'est le feu vert : 
vous trouverez dans ce numéro un premier programme 
assez complet pour le nouvel ordinateur, les premiè¬ 
res critiques de livres qui le concernent, quelques 
beaux écrans de son crû. Entré à pas mesurés, car le 
Spectrum n'est pas près de détrôner dans nos colonnes, 
pas plus que dans le public, le fabuleux ZX81 qui n' 
a pas achevé, il s'en faut, sa trajectoire de grand 
vulgarisateur de l'informatique individuelle. 

Pourtant le nouveau venu va nous contraindre à de 
nouveaux efforts pour être dans le coup : une page 
intérieure en couleur peut-être ? Nous aimerions 
bien vous faire ce cadeau prochainement... 


Mais laissons passer les vacances et puisse ce qua¬ 
trième numéro d'ORDI-5 contribuer à vous rendre plus 
agréable quelques moments de loisirs mérités. 

A bientôt. 


Sinclairement vôtre, 
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Vente Informations Services Micro-Ordinateurs 

68, rue Albert - 75013 R4RIS 
Tél (1)586.60.10 

DEMONSTRATION TOUS LES JOURS DE lOhà 20h 


LA QUALITE 
DU SERVICE 
AUX MEILLEURS PRIX 






' "" " ^ PRODUITS ANGLAIS 



DOCUMENTATION EN FRANÇAIS 


MEMOPAK l/F 595 F TTC 

Interface Centronics (Port parallèle 0 bits) Majuscules, minuscules, 
double largeur, conversion ASCII. Compatible avec module HRG. 
Câble liaison pour SE1KOSMAGP 100 A. 170 F TTC 


VISMO EXPRESS 


DOCUMENTATION EN FRANÇAIS 


Livraison dans toute la France 
Nous encaissons vos chèques à l'expédition 
de votre commande, jamais à la réception 
de vos ordres. 


nik-m SOtTT Df DtL M . 




MEMOPAK HRG 645 F TTC 

Haute résolution graphique 192 x 240 2K Eprom avec 30 Routines 
graphiques. Gestion par page vidéo de 6.2 K. 

MEMOPAK 64 K.945 F TTC 

Exploite complètement les possibilités mémoire de votre ZX 8140 K Basic 
•r- 8 K pour langage machine. 

MEMOPAK 32 K.645 F TTC 

Extension RAM 32 K. S'utilise seule ou avec la 16 K Memotech ou Sinclair 
et fournit alors 48 K. 

MEMOPAK 16 K.395 F TTC 

Extension RAM 16 K. Commulable en version Mailre Esclave. 

Autorise les possibilités suivantes : 

16 K seule (en position Maître) 16 K Mailre + 16 K Sinclair = 32 K 
16 K Mailre + 16 K Esclave » 32 K 32 K +16 K Esclave (ou Sinclair) = 48 K 

CLAVIER MEMOTEC’H .695 F TTC 

S'inlerface derrière votre SINCLAIR par carte bulfer. Le clavier original 
est toujours actif (jeux à deux joueurs) touches professionnelles. Légendes 
Incrustées. 


1 BOITIER VISMO* 430 F 

Forme Apple (1) Intégrant votre ZX 
+ 10 extensions. 

MonlteurouTV se place dessus. 

2 SUPER CLAVIER 
MECANIQUE TYPE PRO 

(avec barre d'espace louches 
Jean Renaud) 

EN KIT. 300 F 

MONTE. 390 F 

Set de touche 

davier Vlsmo.6,50 F 

Sérigraphie 

pour touches.16,00 F 

Circuit imprimé 

seul.70,00 F 

3 MAGNETO p,i*. 460F 

4 ZX 81 .790 F 


5 MONITEUR ZENITH 12” 

ECRAN VERT, Nécessita i'Invetseur vidéo 

avec câble Importanl 1100F 

6 IMPRIMANTE ZX 690 F 

7 Plus de bout à bout : 

TOUT dans un seul boîtier 

1) Carte de base 64 K sicape - 

(avec boîtier). 990 F 

ZP-83 

2) Interface parallèle (pour imprimante 
GP 100 A). Enregistrement rapide. 
Générateur de caractères. 

EDITEUR DE TEXTE. 

interface table traçante ***** 

(4 couleurs). Prix. 1390F 


8 EXT. MEMOIRE 16 K 

(en stock permanent). 


9 PHANTOM 

LE (pac-man) FRANÇAIS 

sans problème de chargement 

Prix .... 90 F 

10 IMPRIMANTE 

SEIKOSHA GP 100 A 
Mark II.2250 F 

11 ADAPTATEUR V 2001* 

Plus de problèmes de chargement K7. 
Petit boîtier s'intercalant entre ie 
magnétophone et le ZX-81. *** * 

Prix de lancement... 230 F 

12 CARTE COULEUR 

pour ZX 80-81. 390 F 

Prise Péritel :130 F en sus. 

. 13 CLAVIER SPECIAL 140 F 

(très esthétique). Se place simplement 
sur le clavier d'origine par scotch 
double face. 



DISPONIBLE \ 

VP 100... x 

Incorporez voire ZX 81 dans une unllô trans¬ 
portable et compacte, comprenant : 

-1 moniteur N & D avec Inversion vidéo, 

-1 clavier mécanique avec une saisie numé¬ 
rique séparée, une louche répétlllon Incor¬ 
porée ; clavier se rabaltanl sur le moniteur 
en mode transport, 

-16 K de base Intégré. 

Votre Sinclair Iranstormô en unllé autonome 
portable clavier prol. repliable. Auto Repeol 
Reset. Voire Sinclair devient professionnel. 
Moniteur prot. 9" N/ B Vidéo Inversé 16 K ou 64 K 
RAM Incluse. 

Vous donnez voire ZX montage gratuit. 


p. < ^% ><c g 


Prix sans le ZX version 16 K; 2195 F 
version 64 K 2 995 F 

Prix avec tournllure du ZX 

version 16 K: 2 895 F 
version 64 K: 3 685 F 


INVERSEUR TV ET VIDEO 

Montage très facile à la portée de tous. 
Prérègle (avec schéma de montage). 
Dimension : H : 2 cm. 1:7 cm. 

Se loge sur le côté du boîtier. 120 F 

CABLE LIAISON 

GP 100 A.170F 

VISMO 

Carte sonore.360 F 

VISMO CALCUL 380 F 

S/ROM s'intégre sur la carte ZP-83. 

TRES PUISSANT POUR LA GESTION. 

Sortie d'imprimante 100 col. 255 lignes. 

INTERFACE ZP 82 900 F 

Pas de programme à charger. Permel 
de taire du Irallemenl de lexle sur 80 col. 
Mlnusc. Accent. Livré avec câble 
recopie d’écran avec la fonction copy. 

CARTE-AUTO REPEAT 95 F 
PACK VISMO 

GP 100 A + ZP 82 avec câble 

+ 1000 pages listing. 3195 F 

GP 100 A + INT. MEMOTECH + 

+ CABLES + 1000 pages listing 3150 F 


Listing blanc, 

bandes carrol __ 

2500 rouilles. 230 F 

COMPTABILITE GENERALE 
SUR CASSETTE: 450 F 


Sortie des états comptables sur Imprimante. 
80 cal. GP 100 A132 COL OKI 80. 
Démonstration 6 la boutique VISMO. 
Documentation contre 2 timbres 61,80 F. 


GENERATEUR DE SON: 

• 3 REGISTRES DE TON INDEPENDANTS 

• 3 REGISTRES DE BRUIT 

• 1 REGISTRE D'ENVELOPPE 

• 1 REGISTRE DE COMMANDE 

• 2 REGISTRES POUR LES PORTS E/S 


NOUVEAU 

A VOIR ABSOLUMENT! 
CARTE SON 

Super 8 octaves, programmable en 
baslc el assembleur. Poignée de jeux 
connectable. 

c.s . 350 F 

p.j . 250 F 


CASSETTE PHANTOM 


avec poignée de jeux .. 


CONNECTEUR 66 F 

Liaison Indispensable pour toutes connections. 

CARTE MERE 192 F 

Carte dïnlerfaçage el de raccordement de 
votro unllé centrale SINCLAIR ZX 81, 


Produits VISMO' 
Cherchons revendeurs 


NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 

Documentation gratuite contre 2 timbres à 180 F 


BON DECOMMANDE 

àretoumerà _vismo_ 

68rua ALBERT 75013 PARIS-Tal.S86,80.10 

Nom:_ Prénom:- 


Code Postal. 


Signature : 
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Si vous utilisez un ordina- 1 «“JS?"' 

I BASIC, p 1£ 

teur SINCLAIR (ZX 81', SitST 
ZX 80' ou Spectrum) ou si 
vous comptez en acheter j £ÏS3 

| changez la slgmücaU 

un, sachez que la revue j|ggy^J| 
ORDI-5 a été créée pour 
vous. Indépendant de tout constructeur 
ou importateur, ORDI-5 vous fournit 
quatre fois par an des programmes, des 
conseils, des astuces, de nouvelles idées 
d’utilisation. ORDI-5 teste pour vous en 
toute objectivité et indépendance les 




‘marques déposées 


8PECTHUM : |§§ 

LE NOUVEAU A 
8INCLAIB Jp 

Magazlne.p 7 • Le ZX Spectrum Inspecté- faut-il SS 

vous n°l i’ e actuel? P 9 * 5 UvTes lus pour É 
vous, p 11 ■ 5 programmes à l'essai pl3.Essai ' 

p | 

BASIC, p le 7 .'ÆÊÈËÈIImft! A ll6buts en I 
thématiques Æu BM ^S IlTHk *^ es 0ut ^ s 
| de courbes, pt L lr vos L'acés A;i 

erammequl £ÊUB wfîfH P 20 * Ul l P rrj - ® 
voir, p 22 • ^ ag ^ 1 - ^*gn| vous aide a pré Mf 

«««* pour épater vos amis „!« a ? ,, ? us i 

la rubrique des leuoes nPR k 4 * Juveil llla, « 
jeu. p 37 . De la ™ 6 * 5 Programmes de H 

Changez la siimnèSS votre Zx - P 30 • fe 


i Cj&j Il produits matériels et logi- 

raoLun'^u i Cie ^ s adaptables sur votre 
SINCLAIR. ORDI-5 vous 
tient au courant de toutes 
les nouveautés suscepti¬ 
bles de vous intéresser. 
ORDI-5 n’est pas en vente chez les mar¬ 
chands de journaux.|Pour vous abonner 
ou pour recevoir 1 numéro, il vous suffit 
de nous retourner le bon de commande 
ci-dessous. 

Abonnez-vous, vous économiserez 20 % 


Nom_ 

Adresse. 
Pays_ 


BON DE COMMANDE 

à retourner à ORDI-5, 8 rue Saint-Marc 75002 PARIS 
-Profession_ 


Code postal. 


□ Je désire recevoir le n°lD len°2D len°3D len°4D de ORDI-5 
(prix d'un n° 25 FF ; Etranger** 30 FF ; par avion 40 FF). 

□ Je désire m’abonner à ORDI-5 pour 1 an, 4 n os , à partir du n°lD dun°2D dun°3D dun°4D 
(tarif France 80 FF ; Etranger** 90 FF ; par avion 160 FF). 

(Actuellement ORDI-5 est trimestriel). 

Ci-joint mon règlement indispensable par chèque bancaire □ chèque postal □ virement □ 

“Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les frais de virement sont à la charge de l'acheteur 
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conçu pour monter en régime, 


5 interfaces et périphériques vous permettent 
de passer la vitesse supérieure. 


informations extérieures et de réaiiser tous automatis¬ 
mes, du train électrique à la machine outil. 


4. CARTE GENERATRICE 
DE CARACTÈRE* 

Celle-ci permet de générer un nombre important d’al¬ 
phabets et de caractères différents (minuscules/ma¬ 
juscules géantes, lettres grecques ou romaines) ainsi 
que tous les caractères graphiques de votre choix. 

5. INTERFACE “CENTRONICS” 

permettant la connection d’imprimantes 80 ou 132 
colonnes du type “Centronics” en vue d’applications 
professionnelles (éditions d’étiquettes pour mailing, 
facturation, gestion, etc.). 


Si le Sinclair a déjà fait un million d’adeptes, passion¬ 
nés et exigeants, c’est parce que ses performances 
“extensibles” leur permettent de progresser librement, 
sans buter contre l’obstacle de capacités limitées, 
a D’abord, la mémoire vive 1 K-octets peut être portée 
à 16 K, et même à 64 K, ce qui vous ouvre des horizons 
très prometteurs. 

a Mais ce n’est pas tout : une gamme de 5 périphéri¬ 
ques vous permet de multiplier à volonté les possibilités 
de votre ZX 81. Vous avez le choix : 

1. CARTE 8 ENTRÉES/SORTIES 

Cette carte vous permet de gérer quantitativement des 


2. CARTE 8 ENTREES ANALOGIQUES 

Cette carte vous permet de réaliser toutes sortes de 
systèmes de mesure, de signaux électriques et électro¬ 
niques domestiques et professionnels (manettes multi¬ 
dimensionnelles, mesures de température, etc.). 


3. CARTE SONORE* 

Elle vous permet de sonoriser vos programmes, faire 
exploser les fusées ou "ricaner” votre SINCLAIR. 













































en kft. 



Ses capacités “extensibles” mus permettront de 
dépasser sans cesse ms propres limites. 


Auriez-vous imaginé pouvoir disposer à ce prix d’un 
véritable ordinateur performant et polyvalent?... Le 
Sinclair répond exactement à l’attente de ceux qui veu¬ 
lent laisser libre cours à leur esprit inventif et mettre eux- 
mêmes au point des programmes spécifiques et per¬ 
sonnels. 

Il se prête à une grande variété d'utilisations (scienti¬ 
fique, gestion, jeux) et les interfaces et périphériques 
présentés ci-contre multiplient ses possibilités : ses 
performances étonnent les professionnels de l’informa¬ 
tique habitués à travailler sur des unités cent fois plus 
coûteuses. 

Parmi les avantages dont le ZX 81 vous fait bénéficier : 
o Branchement direct sur la prise antenne de votre télé¬ 
viseur, au standard français; 


® possibilité d’enregistrer et de conserver sur cassette 
des programmes et des données... (tout simplement en 
branchant sur le ZX 81, avec le fil de connection livré 
gratuitement, le lecteur/enregistreur de cassettes que 
vous avez déjà I) ; 

® gamme complète de fonctions mathématiques et 
scientifiques avec une précision de 9 positions déci¬ 
males... 

e tableaux numériques et alphanumériques multi¬ 
dimensionnels... 

® 26 boucles FOR/NEXT imbriquées... 

•'mémoire vive 1 K-octets pouvant être portée à 16 K 
octets grâce au module RAM Sinclair... Et même à 64 K ! 
a le Sinclair ZX 81 est garanti un an avec échange 
standard. 


1.000.000 de Sinclair dans le monde 


Ce n’est pas la moindredes performances du Sinclair : 
il a déjà fait plus d'un million d’adeptes et de clients satis¬ 
faits parmi les professionnels de l’informatique et les 
amateurs expérimentés (dont 100.000 en France!). 

Un million d’amateurs qui obtiennent de leur Sinclair 
des performances de plus en plus spectaculaires grâce 
aux "cartes” (ci-contre), grâce à l’extension de mémoire 
Sinclair, et à une gamme de logiciels très variée, de 50 à 
150 F. 

Vous pouvez commander votre Sinclair pour moins 
de 800 F (monté, prêt à être utilisé) ou en kit, pour moins 
de 600 F (quelques heures suffisent au montage). Les 
versions montées ou en kit contiennent l’adaptateur 


secteur ettous les conducteurs requis pour connecter le 
ZX 81 à votre téléviseur (couleur ou noir et blanc) et à 
votre enregistreur/lecteur de cassettes. 

Pour recevoir votre Sinclair, renvoyez le bon ci-des¬ 
sous -sans tarder. Votre commande vous parviendra 
dans les délais indiqués ci-dessous qui vous sont toute¬ 
fois donnés à titre indicatif et peuvent varier en fonction 
de la demande. Vous serez libre, si vous n’êtes pas satis¬ 
fait, de renvoyer votre ZX 81 dans les 15 jours : nous vous 
rembourserons alors intégralemènt. Dans le cadre de 
cet envoi, nous vous joindrons un catalogue des logi¬ 
ciels et périphériques que vous pourrez vous procurer 
ultérieurement. 


Nous sommes à votre disposition pour toute information au 359.72.50 +. 
Magasin d'exposition-vente, 7 rue de Courcelies, 75008 Paris - Métro : St-Philippe-du-Roule. 
Points de vente pilotes : nous consulter. 



I 


j 


Enfin SINCLAIR vous propose toute une gam¬ 
me de logiciels entre 50 et 150 francs : jeux d’arca¬ 
des (simulation de vol, patrouille de l’espace, inva- 
ders, scramble, stock car...) jeux de réflexion 
(othello, échecs, trie trac-backgammon, awari...), 
utilitaires (assembleur, désassembleur, fast load 
monitor, tool kit...), gestion (ZX multifichier, vu-file, 
vu-calc...). 


Bon de commande 


A retourner à Oireco International, 30, avenue de Messine, 75008 PARIS 

Oui, je désire recevoir par paquet poste recommandé : ?-■ 

□ le Sinclair ZX 81 monté pour 790 F TTC -«^Marte 8 entrées analogiques pour 420 F TTC 

□ l’extension mémoire 16 K RAM pour 380 F TTC □ carte sonore pour 432 F TTC 

□ l’imprimante pour 690 F TTC □ carte génératrice de caractère pour 432 F TTC 

□ carte 8 entrées/sorties pour 420 F TTC □ interface "Centronics” pour 990 F TTC 

Je choisis de payer : □ par CCP ou chèque bancaire établi à l’ordre de Direco International, 
joint au présent bon de commande 

□ directement au facteur, moyennant une taxe de contre-remboursement de 14 F. 

Nom_ 

Rue 


_N° 


-Prénom_ 

. Commune. 


Code postal i_!_!_!_i_I Signature 

(pour les moins de 18 ans, signature de l'un des parents). 

Au cas où je ne serais pas entièrement satisfait, je suis libre de vous retourner mon ZX 81 dans les 15 jours. 
Vous me rembourserez alors entièrement. 



■ cartes génératrices de caractère et sonore : 
des jeux d'arcades sont déjà proposés aux 
utilisateurs pour fonctionner avec ces cartes. 
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DÉPARTEMENT TÉLÉMATIQUE 


- j NOUVELLE ADRESSE : | - 

54, rue Ramey 75018 PARIS 
Nouveau téléphone : 252.87.97 

Magasin de vente : Même adresse. Horaires : 10 h 30 -13 h 30 et 15 h -19 h 
Jours d’ouvertures : du mardi au samedi inclus. 

-*-METRO : Jules Joffrin ou Marcadet Poissonnières- 
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A SELECTIONNE et DISTRIBUE 

POUR VOTRE ZX 81 V> 





INTEP.EEPTEUR 


GRAPHISME HAUTE RÉSOLUTION 245 F 

Vous survolez la surface d’une planète 
ennemie... Il vous faudra détruire les 
patrouilles successives qui fondent sur 
vous... Plus vous avancez dans le jeu et 
plus II se complique... 


A 

*PP • ■ 

rtftn 


V-! 
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DESTRUCTEUR 


COPYRIGHT : JESUS MR.RTINEZ 1903 


GRAPHISME HAUTE RÉSOLUTION 

Vous devrez détruire complètement 
l’immeuble sur lequel règne 
King-Kong... Mais celui-ci reconstruira 
l'édifice... Le jeu allant de plus en plus 
vite... 



MINEUR 


C O PS' RIG HT : J B S U S MARTINEZ, 19 G 


GRAPHISME HAUTE RÉSOLUTION 235 F 

Un trésor à découvrir à la pioche... mais 
attention aux coups de grisou, aux cou¬ 
ches graniteuses, aux-êboulements... et 
aux monstres souterrains... 


Ces cartouches sont compatibles avec votre ZX81 quelle que soit sa configuration : Avec le ZX seul, graphique 
en noir et blanc — Avec la carte couleur SAM, le jeu passe en'couleurs — Avec la carte SON VTR, vous y ajoutez 
le bruitage. 

Attention cependant, pour connecter votre cartouche, vous avez besoin d’un adaptateur (que vous réutiliserez 
pour les cartouches à venir). Nous vous proposons cet adaptateur à 149 F TTC. 


CARTE SON VTR 395 F 

7 octaves, 3 voies, enveloppe, durée, 

hauteur, sortie Hi-Fi stéréo, HP incorporé. 
CARTE COULEUR SAM 395 F 

8 couleurs, branchements simples, sortie 
Péritel préconisée, câble Pérîtel 130 F TTC. 



VIDEO PROCESS VP 100 

Votre Sinclair transformé en unité autonome por¬ 
table clavier prof, repliable. 

Auto Repeat Reset. Votre Sinclair devient profes¬ 
sionnel. 

Moniteur prof 9” NB. Vidéo inversé 16 K ou 64 K 
RAM incluse. 

Prix avec fourniture du ZX version 16 K : 2 985 F 
version 64 K : 3 785 F. 

Reprise de votre ancien ZX 81 (en état de fonction¬ 
nement) : 690 F. 


ACCESSOIRES POUR ZX 81 : 


— Carte inverse vidéo .95 F 

— Carte auto repeat.95 F 

— Mini-clavier. 345 F 


à sensation tactile : 42 touches, 2 touches supplé¬ 
mentaires (pour repeat ou reset). Se monte très sim¬ 
plement en lieu et place du clavier original. Conserve 
l'encombrement du ZX. 

•— Clavier professionnel sur carte . 495 F 

41 touches + barre d’espacement. Touches profes¬ 
sionnelles, contact OR. Auto repeat montée + tou¬ 
che reset. 

— Pack imprimante. 2 995 F TTC 

+ 100 F port et emballage 
Interface + câble + Seikosha GP 100 A 

Majuscules, minuscules accentuées, graphisme, 80 
caractères par ligne, 50 cps, utilise papier listing tra¬ 
ditionnel 12 pouces. 

CASSETTES COURTE DURÉE 
C 10 : 9 F TTC. Expédition par 10:110F TTC franco 
C15 :9,50 F TTC. Expédition par 10 :115 F TTC franco 
C 20 :10 F TTC. Expédition par 10 :120 F TTC franco 


NOUVEAU : FILTRE CASSETTE 
Ce module, qui s'intercale entre le magnétophone et 
le ZX, va vous libérer de vos angoisses en fiabilisant 
vos sauvegardes et lectures de programmes. Sous 
boîtier avec LED d’indication. 230 F TTC port com¬ 
pris. 


NOUVEAU 

Connecteur souple rallonge pour vos extensions. 
Composé d’un connecteur femelle, une natte souple 
de 40 cm et un connecteur mâle. 195 F TTC. 

PROGRAMME BIORYTHMES 

Vos courbes biorythmes aux dates que vous deman¬ 
dez, comparaisons entre différentes personnes, indi¬ 
cations des jours critiques. Sur 1 face programme 
pour ZX standard. Sur l’autre face programme compa¬ 
tible avec le module HRG de Memotech (graphisme 
haute résolution). 

BIORYTHME 16 K .115 F 

« L’intérêt des biorythmes est tel que des compa¬ 
gnies d'assurance, d’aviation et beaucoup d'autres 
organismes les utilisent ». 


ARDOISE MAGIQUE 16 K . 95 F TTC 

Le programme, conçu pour le module HRG de 
MEMOTECH, transforme votre écran en ardoise 
magique. Depuis le clavier, vous composerez, 
point par point, votre dessin en haute résolution. 


Vous avez des idées SOFT ou HARD mais manquez de 
moyens de développement ou de distribution... 
CONTACTEZ-NOUS. 


ENFIN ELLES SONT ARRIVÉES 

DISQUETTES CYBORG 

Ces lecteurs de disquettes sont ie fruit des dernières 
techniques les plus sophistiquées. Elles utilisent le 
standard 5 pouce 1/4 et permettent le stockage de 
360 K sur chaque face ! Elles possèdent un DOS com¬ 
plet et puissant. Mieux encore, ces disquettes sont 
multi ordinateurs II! Moyennant un nouveau connec¬ 
teur et une disquette maître, vous adapterez votre lec¬ 
teur de disquette à un autre ordinateur... ! 


Adressez-nous une demande pour documen¬ 
tation complète et formulaire de réservation. 
Ne pas téléphoner SVP. 






































POURQUOI CHOISIR LA GAMME MEMOTECH : 


— Tous les produits Memotech sont conçus compatibles. Vous commencez ainsi une gamme d’acces¬ 
soires sans soucis et sans risques. Ex : le Memocalc + 64 K + l/F Centronics vous permettra de sortir 
sur l’imprimante tous vos tableaux (jusqu’à 100 colonnes de 250 lignes !) et cela par des instructions 
existantes et non en passant par des sous-programmes ou manipulations diverses. 

— Les extensions Memotech se présentent sous boîtier aluminium noir harmonisé avec le design du 
Sinclair. 

— Les manuels sont complets et nous fournissons une traduction française. 

— Fiables et puissants, les modules Memotech sont garantis 6 mois. 


fi £ M ü P Fl K 


MEMOPAK 16 K 

Extension RAM 16 K. Commutable en version Maî¬ 
tre ou Esclave. Autorise ies possibilités suivantes : 
16 K seule (en position Maître) 

16 K Maître + 16 K Esclave = 32 K 
16 K Maître + 16 K Sinclair = 32 K 
32 K + 16 K Esclave (ou Sinclair) = 48 K 

MEMOPAK 32 K 

Extension RAM 32 K. S’utilise seule ou avec la 16 K 
Memotech ou Sinclair et fournit alors 48 K. 

MEMOPAK 64 K : 

Exploite complètement les possibilités mémoire de 
votre ZX 81 48 K Basic •,+ 8 K pour langage 
machine. 

MEMOPAK HRG 

Haute résolution graphique .192 x 248 2 K Eprom 
avec 30 routines graphiques. Gestion par page 
vidéo de 6,2 K. 


CLAVIER MEMOTECH 

S’interface derrière votre SINCLAIR par carte buf- 
fer. Le clavier original est toujours actif Geux à 
deux joueurs), touches professionnelles. Légendes 
incrustées. 

MEMOPAK l/F 

Interface Centronics (port parallèle 8 bits). Majus¬ 
cules, minuscules, double largeur, conversion 
ASCII. Compatible avec module HRG. Câble liaison 
pour SEIKOSMA GP 100 A. 180 F TTC port compris. 


L’IMMENSE SUCCÈS 
DES PRODUITS MEMOTECH 

nous permet de réviser certains 
prix à la baisse ! PROFITEZ-EN ! 


POINTS DE VENTES 


066000 Antibes : LABORATOIRE D'APPLICATIONS ÉLECTRONIQUES 
35 rue Aubernon, (93) 34.53.04 

10000 Troyes : MICROPOLIS 29 rue Paillot de Montabert, (25) 72.03.79 

11000 Carcassonne : TELEC 91 bis rue Bringer 

13090 Aix-en-Provence : FAN-FAN 10 place de la Mairie, (42) 23.29.91 

13200 Arles : LUDO 27 rue de la République, (90) 96:79.03 

16000 Angoulême : LA BUREAUTIQUE SA L’HOMME 5 rue Fanlrelin, 

(45) 95.27.37 

31000 Toulouse : MIDI DÉTECTION 6 rue Jean-Suau, (61) 23.99.88 
33000 Bordeaux : SUD-OUEST DÉTECTION 6 rue Ferdinand-Philippart, 
(56)81.11.99 

42100 St-Etienne : ST-ÉTIENNE COMPOSANTS 2 rue de Terre Noire, (77) 
33.50.14 

44800 St-Herblain : MICRO MANIE sillon de Bretagne, (40) 63.07.22 
45000 Orléans : ELECTRONIC SYSTEM CENTRE 98 rue du Fg St-Jean, 
(38)62.05.17 

49300 Cholet : CHOLET INFORMATIQUE 22 rue du Point de l'Aire, (41) 
46.02.40 

51100 Reims : HERCET MICRO INFORMATIQUE 70 rue du Barbatre, (26) 
82.57.98 

53000 Laval : RADIO TÉLÉ LAVAL 95 rue Bernard Le Pecq, (43) 53.19.70 
66000 Perpignan : COMETELEC 23 rue Pascal-Marie Agasse, (68) 
54.26.26 
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MEMOCALC ANALYSE 
Sur ROM indépendante commutable, puissant et 
souple, permet l’analyse, la simulation et la prévi¬ 
sion financière. 


MEMOTEXT 

Sur ROM indépendante commutable, programme 
de traitement de texte très performant. Association 
de fichiers « textes » et fichiers « coordonnées » 
pour mailing, envois sélectifs, etc. 


MEMOPAK Z 80 ASSEMBLEUR 

Sur ROM indépendante commutable. Un assem¬ 
bleur des plus performants avec Editeur, fonctions 
ORG (origine), POS (position), Labels littéraux, etc. 
En permanence à votre disposition. 


MEMOPAK RS 232 SERIAL INTERFACE 

Interface série RS 232. Le monde des périphériques 
série enfin à votre portée. 


MEMOPAK 16 K . 395 F TTC port compris 

MEMOPAK 32 K . 645 F TTC port compris 

MEMOPAK 64 K . 945 F TTC port compris 


MEMOPAK HRG 


. 645 F TTC port compris 
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MEMOPAK l/F. 595 F TTC port compris 

MEMOPAK RS 232 . 695 F TTC port compris 

CLAVIER MEMOTECH .... 645 F TTC port compris 
MEMOCALC ANALYSE ... 445 F TTC port compris 

MEMOTEXT. 445 F TTC port compris 

MEMOPAK Z80 ASSEMBLEUR .... 445 F TTC p. c. 


DE VENTE MEMOTECH. I 


69006 Lyon : ECO INFORMATIQUE 50 cours Vitton, (7) 824.51.18 
69006 Lyon : CRÉÉ 3 rue Bossuet, (7) 824.11.77 

71400 Autun : CHB ÉLECTRONIQUE 20 avenue Ch. de Gaulle, (85) 
52.70.26 

75010 Paris : P.I.E.D. 42 boulevard Magenta, (1) 249.16.50 
75013 Paris : VISMO 68 rue Albert, (1) 586.60.10 

77000 Melun : MELUN INFORMATIQUE 9 rue de l’Eperon, (6) 452.45.88 
80000 Amiens: SIP INFORMATIQUE 14 rue Sire Firmin Leroux, (22) 
91.08.45 

86000 Poitiers : INFORMATIQUE SERVICE 14 boulevard Chasseigne, 
(49) 88.21.93 

88100 St-Die : BRICOTRONIC 93 rue d'Alsace, (29) 55.34.24 
95460 Ezanville : COMPOSANTS 95 50 rue de la Marne. 935.00.69 
97400 Saint-Denis La Réunion : AFFEJEE ELECTRONIC 136A rue 
Juliette Dodu, BP 805 


Revendeurs province 

Distribuez vous aussi la prestigieuse gamme 
MEMOTECH. Contactez-nous. 
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L'ORDINATEUR 
-J! INDIVIDUEL 


• Panorama des ordinateurs valant jusqu’à 60 000 F (plus de 180 matériels) 

. ^0 • Tableau récapitulatif de tous les O.l. dans plusieurs configurations 

• Panorama des imprimantes pour ordinateur individuel (plus de 80 matériels) 

• Réactualisation de bancs d’essai de matériels parus dans L’O.I. 

* • Revue des bancs d’essai de logiciels parus dans L’O.I. depuis le n° 34 

• Annuaire des fournisseurs et des clubs : plus de 1500 adresses 

• Le point sur les nouveautés parues depuis l’été 82 

• Dictionnaire de l’informatique individuelle 

• ... Et une série pour vous “guider” sur le chemin de votre informatisation individuelle 


à partir du 15 septembre 1983 
35 FF* chez votre marchand de journaux 

Pour recevoir le Guide 83-84 dès sa parution, il vous suffit d’envoyer vos nom et adresse ainsi qu’un chèque de 35 FF* à 
L’ORDINATEUR INDIVIDUEL (GUIDE 83-84), 39, rue de la Grange-aux-Belles, 75484 Paris Cedex 10 


‘Etranger 40 FF. 































































































































































































































































ZX 81° CENTIGRADES 


Une forte proportion de lettres de lecteurs se plai¬ 
gnent de diverses formes de trahisons de leur ZX81 
après plusieurs heures de fonctionnement avec l'ex¬ 
tension mémoire. 

Le problème de base se situe au niveau des contacts 
douteux existant entre le connecteur arrière de l'or¬ 
dinateur et les lyres dorées de l'extension mémoire : 
si l'on excepte quelques marques (par exemple MEMO- 
TECH), qui se sont sérieusement penchées sur la ques¬ 
tion, il faut reconnaître que la majorité des fabri¬ 
cants (SINCLAIR en tête d'ailleurs) livrent des modu¬ 
les pour le moins branlants ! 

Dès lors, il suffit d'un choc, même léger, sur le 
plan de travail, ou d'un déplacement de l'ordinateur 
pour que s'interrompent un court instant certaines 
liaisons vitales, et alors... tout le contenu de la 
mémoire est irrémédiablement perdu. 

Il semble qu'une sorte de fatalité fasse que ces In¬ 
cidents surviennent justement lorsqu'approche la fin 
d'un très long travail au clavier. En fait, nous avons 
maintes fois remarqué que c'est précisément à ce mo¬ 
ment que, fatigue nerveuse aidant, l'opérateur risque 
le plus de se livrer à des mouvement inconscients tels 
que de petits coups de doigts sur la table ou, pire 
encore, sur le capot de la machine. L'évolution dans 
le temps de la vigueur avec laquelle les touches sont 
actionnées va également dans le même sens. 

Là n'est cependant pas la seule explication ! 

Nous avons pu remarquer que de très nombreux blocs 
secteur présentent des soudures défectueuses au ni¬ 
veau de picots de leur transformateur : pendant le 
transport, ces picots arrivent à évider la soudure 
et, après un fonctionnement de plus de deux heures, 
l'échauffement est tel que la dilatation des soudu¬ 
res arrive à provoquer des ruptures d'alimentation 
très brèves mais catastrophiques. 

Signalons enfin l'échauffement parfois excessif du 
régulateur 5V incorporé à l'ordinateur : ce circuit 
intégré possède une protection thermique capable de 
le faire disjoncter en cas de sollicitation trop pro¬ 
longée. 

Nos amis anglais ont été confrontés bien avant nous 
à ces problèmes, et ont suggéré diverses solutions, 
parfois assez barbares, puisque certains auteurs n' 
hésitent pas à préconiser un soudage ou un collage 
des deux boîtiers ! 


En fait, certains adhésifs double face munis de mous¬ 
se élastique peuvent rendre des services à ce niveau, 
mais le VELCRO donne de bien meilleurs résultats. 


On peut aussi intercaler entre le ZX et la mémoire 
un connecteur souple, mais il s'agit là d'une pièce 
assez onéreuse. Pour notre part, nous avons préféré 
réaliser une pièce en tôle d'aluminium utilisant le 
petit logement existant sous le ZX81 pour coincer ef¬ 
ficacement le module mémoire. 



la vraie révolution en micro-informatique 
ENFIN DISPONIBLE en ALSACE 
en version 48 Ko et standard P.A.L. 
Une offre spéciale de lancement 
est proposée 

Documentation + Prix sur demande à 
CEMIA 35 rue des Trois Rois 
68100 MULHOUSE Tél. (89) 46.56.00 
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Au niveau de 1'échauffement excessif des composants 
d'alimentation, il est facile de refaire les soudures 
du bloc secteur, et d'ajouter généreusement de la 
graisse siliconée (blanche) entre le refroidisseur 
et le régulateur de 1'ordinatëur. 

Dans les cas extrêmes, on peut même percer quelques 
trous d'aération dans la coquille supérieure du boî¬ 
tier, juste en dessous du sigle "ZX81". 

Malgré ces adaptations dont l'efficacité est prouvée, 
il reste conseillé, lors de l'écriture de longs pro¬ 
grammes, de procéder régulièrement à des sauvegardes 
partielles sur cassette, disons toutes les vingt li¬ 
gnes. Cette cassette "de travail" ne sera effacée qu' 
une fois le programme complet mis en lieu sûr ! 
D'autres lecteurs se plaignent de réactions imprévues 
de leur machine lors de la seule exécution de certai¬ 
nes fonctions (par exemple RND). Si la syntaxe est 
bien respectée, la seule explication est un défaut 
dans la mémoire ROM, empêchant la bonne exécution de 
la routine correspondante. 

_Patrick Gueulle 

A PROPOS DES CARTES CARACTERES GRAPHIQUES 


Les cartes caractères graphiques de DK'TRONICS ou de 
KAYDE présentent un grave défaut si l'on désire les 
utiliser avec une extension de mémoire 64 K : elles 
ne décodent pas toutes les adresses et se retrouvent 
par conséquent adressées une deuxième fois à partir 
de 40960, ce qui a pour effet de bloquer RAMTOP à cet¬ 
te valeur lorsque l'on tente d'initialiser le système 
à 64 K. 


portes du 74LS32 montée sur la carte caractères gra¬ 
phiques étant inutilisée (broche 4, 5 et 6), nous al¬ 
lons nous en servir pour réaliser le OU entre les li¬ 
gnes d'adresse A14 et A15. 

Dans le cas où l'on utilise cette carte avec une ROM 
SINCLAIR soudée sans support, il conviendra d'ajouter 
un conducteur pour amener la ligne A15 à la carte ca¬ 
ractères graphiques. 

Sinon, dessouder les conducteurs 2 (brun ou bleu) et 
4 (orange ou gris) de la nappe à 5 conducteurs des 
pastilles de la carte caractères. Percer non loin de 
ces pastilles, dans la partie libre de la plaquette 
en epoxy, deux trous 0 0,6 mm. Passer les extrémités 
des conducteurs que l'on vient de dessouder par ces 
trous et y souder deux petits fils isolés. A l'aide 
de ces fils, relier le conducteur 2 à la broche 4 et 
le conducteur 4 à la broche 5 du 74LS32 (le circuit 
intégré le plus loin du conducteurs en nappe). A 1' 
aide d'un autre petit fil isolé relier maintenant la 
broche 6 du 74LS32 à la pastille où aboutissait avant 
le conducteur bleu. Relier alors l'extrémité libre du 
conducteur 4 (orange ou gris) à la ligne Al5 du ZX81 
(broche 5 de l'IC3). 

Pour rendre la carte caractères graphiques aisément dé¬ 
montable il est préférable-de ne pas souder les. 5 con¬ 
ducteurs sur la carte du ZX, mais d'y souder des pi¬ 
cots en utilisant les trous de traversée situés près 
du connecteur d'extensions de la carte du ZX. Bien 
repérer les pistes à utiliser d'après le brochage de 
ce connecteur. Il suffit alors de munir les extrémi¬ 
tés de chaque conducteur de la nappe à 5 fils de pe¬ 
tites prises pour ces picots et de les embrocher des¬ 
sus . 


Pour remédier à cet inconvénient, il convient de pren¬ 
dre en compte la ligne d'adresse A15- Une des quatre 


INFORMATIQUE 

62, rue Gérard 75013 PARIS 
Tél. : (1) 581-51-44 


Enfin, en vue de pouvoir utiliser d'autres extensions 
utilisant les mêmes adresses entre 8 et 16 K on peut Q£) 



à\ A Boîtier conçu spécialement 
-7 pourseclipserau ZX 81 

EXTENSION 16 K RAM 310 F 


JEU 16 K LLAMASOFT _ 

CENTIPEDE 85 F 



Prix valeurJuillet 1983 


BON DE COMMANDE 

à renvoyer à RUN INFORMATIQUE 62, rue Gérard 75013 PARIS 


Je passe commande □ EXTENSION ZX81 
□ JEU CENTIPEDE 


8 1_i uuu uuii i in-uu - 

Je désire recevoir: Total _ 

| □ votre documentation Ci-joint mon règlement 

■ □ votre catalogue de jeux par chèque bancaire □ ou CCP □ 

S D SPECTRUM 

□ ZX 81 SIGNATURE: 

Tous les prix comprennent la T.V.A. et les frais de port postaux (France Mètropol.) 


REGION ALSACE 


POUR Zx80/Zx81 

CARTE MULTIFONCTION C.I.T. 

avec 8K de ROM supplémentaire 
. SON sur T.V. (3 octaves) 
au clavier, par programme ou préenregistrée 
. HAUTE RÉSOLUTION GRAPHIQUE 
sur impr. Sinclair axes gradués et quadrillage 
10 PAGES ÉCRAN EN MÉMOIRE 
écriture/lecture priorité au programme 
Inversion vidéo par soft partielle/totale 

INTERFACE IMPRIMANTE TYPE CENTRONICS... 
Renumerotation du basîc au pas choisi 
PROGRAMMATION D’EPRÔM 
Enregistrement de programmes en basic, 

+ data, en assembleur. 

Affichage des registres Z80 en hexa, 
binaire, variables Sinclair en décimal 
Ecriture géante, scroll inverse, clear partiel, 
sirène, adresse en zone variables, etc. etc... 

Pas de réservation de mémoires, pas de chargement! 
Messages d'erreur sonores et littéraux 
Prix avec manuel d'utilisation T.T.C. 685.- FF 
C.I.T. 4, rue de Bâle 
68300 SAINT-LOUIS Tél. (89) 67.76.01 
























SEHAN 


la pratique 


BASIC. 


ksbss*. 




SHABlB 


Etudes pour ZX-81 

s Tome 1. Par J.E Sehan 
Programmes en Basic. 

Un recueil de 20 programmes Basic des 
plus variés, utilisant au mieux les possibi¬ 
lités de graphisme et de création des fi¬ 
chiers sur cassettes du ZX-81. 

160 pages-82,00 FF/635,00 FB 

a Tome 2. Par J.E Sehan 
Programmes en Basic et en assembleur. 
Plus particuliérement dédié au langage 
assembleur appliqué aux modules d'ex¬ 
tension comme l'imprimante du la carte 
génératrice de caractères, ses 20 pro¬ 
grammes vous permettent de créer des 
mélodies, de dessiner des histogrammes 
ou tout simplement de jouer au Baccara, 
aux Piranhas et au Taquin 
176 pages -82,00 FF/635,00 FB 


La pratique du ZX Spectrum La pratique du ZX Spectrum 

Par Xavier Linant de Bellefonds Par Marcel Henrot 

Tome 1. Basic approfondi. Initiation au tome 2. Programmation en langage 

langage machine. machine. 

Cet ouvrage exploite toutes les possibi- Cet ouvrage, consacré au langage réa¬ 
lités du ZX Spectrum dans le domaine de chine, est accessible à tous ceux qui ont 

la programmation avancée. L'auteur y assimilé la programmation Basic appro- 

expose d’une manière soigneusement fondie. La corrélation entre les comman- 

graduée : la définition de caractères et des Basic et les codes machine a été la 

les fonctions de chaîne, la haute défini- préoccupation principale de l'auteur, qui 

lion graphique et la puissance de calcul amène progressivement le lecteur à la 

(graphiques en trois dimensions...), la compréhension de routines de plus en 

couleur et le son, les techniques d'accès plus complexes. Les trois aspects prin- 

direct à la mémoire et l'utilisation du cipaux du Spectrum : le son, la couleur et 

langage machine. la haute résolution lont l’objet de nom- 

Les possesseurs de ZX 81 trouveront breuses routines dans tous les chapitres, 

dans cet ouvrage plusieurs programmes Le lecleur attentil élaborera des pro- 

Iransposables pouvant être réintroduits grammes personnels en code machine 

tels quels sur leur appareil. quand il aura reiermé ce livre. 

82,00 F/635,00 FB 82,00 FF/635,00 FB 

Demandez notre catalogue gratuit 


Le petit livre du ZX-81 

Par Trevor Toms 

Conçu pour mettre en valeur les diverses 
possibilités d'utilisation du ZX-81, ce livre 
est aussi destiné à stimuler l'imagination 
des “apprentis programmeurs" qui dé¬ 
couvriront dans les nombreux program¬ 
mes proposés une quantité d'idées à 
exploiter. 

136 pages-72,00 FF/555,00 FB 

La pratique du ZX-81 

o Tome 1. Basic approfondi. Initiation au 
langage machine. 

Par X. Linant de Bellefonds 
Un livre qui permettra aux possesseurs 
de ZX-81 d'exploiter les possibilités de 
leur système dans le domaine de la pro¬ 
grammation avancée, et de s'initier aux 


différents niveaux de langage inter¬ 
venant dans la gestion d'un système in¬ 
formatique de base (langage évolué, 
variables - systèmes, langage-machine). 
128 pages -72,00 FF/555,00 FB 
o Tome 2. Programmation en langage 
machine. 

Par M. Henrot 

Destiné aux possesseurs de ZX-81 ayant 
acquis une bonne expérience de la pro¬ 
grammation Basic approfondie et qui 
souhaite améliorer la rapidité de leurs 
programmes par des routines en langa¬ 
ges machines. 

152 pages -82,00 FF/635,00 FB 


Envoyer ce bon 
accompagné 
de voire règlement à 
P.S.I. DIFFUSION 
ou, pour la Belgique et 
le Luxembourg, à 
P.S.I. BENELUX 

□ Paiement par chèque joint □ Paiement en FF par carte bleue VISA 
(à P.S.I. DIFFUSION uniquement} 


DESIGNATION 


P.S.I. DIFFUSION 

BP 86 - 77402 Lagny-s/Marne Cedex 
FRANCE 

Téléphone (6) 006.44.35 
P.S.I. BENELUX 
5, avenue de la Ferme Rose 
1180 Bruxelles 
BELGIQUE 

Téléphone (2) 345.08.50 


Date d’expiration 


au Canada 

SCE Inc. 

3449 rue Saint-Denis 
Montréal Québec H 2X3 L1 
Té! : (514) 843.76.63 


en Suisse 

CRISPA 

16. avenue de Beaumont 

1700 Fribourg 

Tél. : (037) 24.43.76 


PRENOM 


en Espagne 

P.S.I. IBERICA 
Ferraz 11 Madrid 8 
Tél. : 247.30.00 


Code post. 


NOMBRE 

PRIX 







TOTAL 




















interrompre séparément les alimentations +5v des ROM 
supplémentaires au dos de la carte caractères graphi¬ 
ques et les relier individuellement au +5v par l'in¬ 
termédiaire de petits interrupteurs séparés. On pour¬ 
ra éventuellement ajouter des leds témoins sur ces 
interrupteurs pour connaître à tout moment les zones 
mémoire utilisées. 


Roger Valeyre 


-»Les jeux que vous proposez en langage machine pour 
le ZX81 seront-ils transposables au ZX Spectrum ? 
(Jacques Flornoy) 

* Non. La plupart des routines en langage machine 
sont destinées à gérer des affichages, or la struc¬ 
ture de l'écran du ZX Spectrum n'a rien à voir avec 
celle de l'écran du ZX81. Mais ne vous inquiétez pas 
ORDI-5 vous proposera vite' des programmes LM pour 
Spectrum. 


-»Pourquoi ne pas prendre un programme très simple 
et le réécrire plusieurs fois de suite en le racour- 
cissant de façon à démontrer au débutant comment Fai¬ 
re des économies de mémoire, etc. (D. Cochard) 

* Très bonne suggestion ; nous allons étudier l'idée 
suivante : proposer un programme très lourd pour une 
opération assez simple et classer les réponses en 
fonction des différentes améliorations. 


-^Malgré tous vos conseils, je n'arrive toujours pas 
à relire les programmes enregistrés sur cassette, 
pourtant je ne suis pas un débutant en informatique. 
(D. Rouzet) 

* Si vous avez la possibilité d'essayer un chargeur 
Q-SAVE de PSS vous verrez si cela dépend des magnétos 
que vous utilisez, sinon c'est en fin de compte l'in¬ 
terface de votre ZX81 qui est en défaut : certains 
appareils (surtout dans les débuts) présentaient cet¬ 
te défaillance. 


—> Comment coupler un Spectrum à une télé couleur sans 
prise Péritel (achetée avant 1980) ? (M. Davignet) 

* Une interface SECAM performante est à l'étude ; el¬ 
le était en démonstration à Micro-Expo ; renseignez- 
vous auprès de Direco-International pour savoir quand 
elle figurera au catalogue. 


-+Je voudrais savoir comment fonctionnent les droits 
de copyrights ? (G. Pedroli) 

* En ce qui concerne les copyrights, la protection 
qui vous est apportée par le petit (c) signifie que 
personne n'a le droit de commercialiser un programme 
copié du vôtre, soit sous la forme d'une reproduction 
de cassettes destinées à la vente, soit pour le faire 
tourner dans le cadre d'une exploitation commerciale 
(luna-park, café, club payant, etc.), sauf à vous ra¬ 
cheter les droits. Cependant tout lecteur qui a ache¬ 
té la revue a payé le droit de recopier le programme 
pour son usage personnel exclusivement . Si vous sou¬ 
haitez en savoir davantage sur la protection juridi¬ 
que des programmes nous vous conseillons de lire le 
"QUE SAIS-JE ?" de Xavier Linant de Bellefonds : 
"L'informatique et le Droit". 


—>Le programme des petits chevaux n'est-il pas incom¬ 
plet ? (Y. Dujonchet) 

* Effectivement, toujours ces maudites listes qui 
s'envolent sous les bureaux. Voici la partie tronquée 
avec toutes nos excuses. 


7O0 INPUT Z* 

705 PRINT RT 18,0;" 

710 IF Z $ = "NON" THEN GOTO 2S5 

715 LET D(C)=D(C)-1 

730 IF R$ (U,U) <> "i83" THEN GOTO 5 

10 

730 GOTO 405 

800 REM FIN DU JEU************* 
S05 IF ffW=S AND U = 7 AND 0=1) O 
R (U=8 HND U=9 RND C=4) OR <U=7 
AND U=B RND C=a) OR (l)=9 RND U=S 
RND 0=3J ) RND B=6 THEN GOTO 870 
810 IF (BOU RND 0 = 1) OR (BOU 
RND 0=3) OR C16 —B « >U RND" 0=3) OR 
(1S-BOU RND 0=4) THEN GOTO 380 
SIS IF (U = l RND B=1 RND 0=1) OR 
<U = 1 RND B = 1 RND 0=3) OR (13 = 1 R 
•JO U = 15 RND 0=3) OR (B = l RND U-l 
5 RND 0=4) THEN GOTO 850 1 

(I?1) LET <X(C ' E) ' V <C,E» ) =STR® 

, L § T W=U+(0=3) - (0=3) 

83© LET U=U +(0=1)-(0=4) 

R Si UJ / U) =C$ (C TO C) RND ( 
3 t §éi î<>U ° R YCC ' E) <>U> THEN GQT 

’fîf G0T0 fi !Î5' U,=c$(c T0 c > 

SIS koTo n S£5 tC ' EJ ' Y(C ' E S’="®“ 

LET HCC)=H(0+1 
I?f FE-niS 5 , = 2 THEN GOTO 900 
SZS k ET £>*(0,1) =D$(C,2) 

880 PRINT RT X(C,E),Y(C E)R 

llf fcg 

895 GOTO Y 2l0 :U YfC ' a) 

900 CLS 

q|» 0 PRINT fiT 10,5;B$CC);" R GAG 


—»Je vous fais parvenir cette petite note à l'inten¬ 
tion des lecteurs d'ORDI-5 : Les possesseurs de ZX81 
se sont rendus compte au cours d'une utilisation pro¬ 
longées de 1'échauffement de leur appareil, cela é- 
tant dû au micro-processéur Z80A. Il faut signaler 
à leur intention l'arrivée sur le marché du Z80 L 
(Low power) qui ne présente pas cet inconvénient. 
L'adaptation ne présente aucun problème, le brochage 
étant le même. (L Vrignaud) 


* Merci pour ce précieux conseil. 

->Voici une autre façon de modifier le programme d'é¬ 
checs (ORDI-5 n° 3) qui évitera tous les POKE à l'e¬ 
xception de /31 (valable uniquement pour le texte). 
Le programme en LM pour la fonction COPY ainsi que 
pour l'impression des numéros des cases ne peut être 
introduit autrement. 


LET AS(85 TO 137)="DESIREZ-VOUS JOUER AUX ECHECS ? 
SOUHAITEZ-VOUS REJOUER" 

LET AS( 401 TO If61 ) = "PREFEREZ-VOUS PLACER LE JEU ? 
JOUEZ-VOUS BLANC (B) OU NOIR (N) ? " 

LET AS(467 TO 470)="V0US" 

LET AS(477 TO 492)="ECHEC ET MAT EN " 

POKE 18028,19 

LET AS(634 TO 669)="CHARGEMENT A CHEVEERRONE, RECOM¬ 
MENCEZ" 


POKE 20704,30 

22871,5 

23943,8 

20724,52 

22878,216 

23951,39 

20861,163 

22881,7 

23955,51 

20864,31 

22886,157 

23961,224 

20872,39 

22902,105 

23964,8 

201381,51 

22905,23 

23976,52 

20889,165 

22922,220 

24013,162 

20892,18 

22925,7 

24038,183 

20984,203 

23866,28 

24041,20 

22860, 12 

23940,216 

24057,39 

LET AS(7074 TO 7153)=' 

GAGNEPERDU 0K7NIVEAU DU JEU, 

1-6 QUI DOIT JOUER, B- 

N? COUP DEFENDU 

COULEUR ? DE- 

PLACE?» 

(Jean-Michel 

Gurdo, Andorre) 
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FORTH TRANQUILLE 


De très belles cassettes pour l'étude facile des lan¬ 
gages FORTH et PASCAL sur Spectrum et ZX81. Avec quel¬ 
le puissance, quelles souplesse et sous réserve de 
quelles additions mémoire ? Résultat de notre enquête 
dans un prochain ORDI-5. 


DRIVE MADE IN FRANCE ! 


A l'exposition Micro-Expo qui s'est tenue à Paris au 
Palais des Congrès du 14 au 19 juin dernier a été ex¬ 
posé un matériel conçu par une société française : il 
s'agit du Cyborg, un lecteur de disquette capable de 
s'adapter par le moyen d'un interfaçage différencié 
à la plupart des micro de la catégorie ZX81 et Spec¬ 
trum. 

Le patron de Cyborg, Jean Garutti, espère vendre 100 
000 unités de ce lecteur en quelques mois. Pour ZX81 
et Spectrum le prix moyen de ce lecteur serait de 3000 
F (l'unité de 5 pouces) et du double pour l'unité de 
3 pouces. En dépit de ce prix élevé ce matériel de¬ 
vrait intéresser les possesseurs de Sinclair. Il res¬ 
te que le délai de livraison prévu paraît excessive¬ 
ment optimiste : à 0RDI-5 nous attendons de voir... 
Commercialisation : VIDEO TELEMAT RECORT. 

Nous conseillons donc à nos lecteurs qui seraient in¬ 
téressés par ce produit de ne le commander que contre- 
remboursement : leur argent ne sera ainsi versé que 
lorsqu'ils seront sûrs d'avoir leur commande. 


QUI A PEUR D'ORIC 1 ? 


Aux dernières estimations les prix du Spectrum 48K et 
de l'ORIC 48K devraient se tenir très près, ce qui 
fait que le prix ne suffira pas à départager les deux 
ordinateurs : les acquéreurs devront se baser sur les 
différences de spécification qui sont assez marquées 
au-delà des apparences. 


PERIPHERICUM 


Informatique Service dont nous avons passé en revue 
quelques bonnes cassettes dans notre premier numéro 
semble avoir parfaitement préparé le trousseau du 
Spectrum pour son arrivée en France : cette société 
commercialise en. effet d'ores et déjà des Kits RAM 


48 K, des interfaces imprimantes parallèles et série, 
des cartes d'entrées-sorties, des boîtiers d'intégra¬ 
tion, etc... 


Plusieurs fabricants commencent à proposer des car¬ 
touches à mémoire protégée pour le ZX81 qui permet¬ 
tent la conservation de données même après interrup¬ 
tion de l'alimentation ; la grande facilité des po- 
quettes japonaises à portée de main, voilà qui est 
intéressant. Mais les produits proposés sont peut- 
être encore un peu encombrants. 


Une carte multi-fonctions pour ZX81 (sortie son-gra¬ 
phiques à haute résolution, etc.). Cette carte est 
commercialisée par CIT et coûte 595 F TTC. Nous vous 
en parlerons très prochainement. 


Les possesseurs de Spectrum vont pouvoir relier rapi¬ 
dement leur ordinateur à la tablette graphique compac¬ 
te de chez Tandy. La société Softest vend une inter¬ 
face aux environs de 500 F. 


Un assembleur Z80 compris sur ROM indépendante coramu- 
table : c'est un produit récent de la société Mémo- 
tech. 


LES COUSINS D'AMERIQUE 


Sinclair est présent aux USA avec trois modèles et 
non deux comme sur le vieux continent : existent ain¬ 
si le TS-1000 qui est l'équivalent du ZX81 mais avec 
2K de mémoire de base, le TS-1500 qui a 16K de mémoi¬ 
re de base et qui est fondamentalement un ZX81 avec 
un clavier de type Spectrum et le TS-2000 qui n'est 
autre que le Spectrum 16K. Tous ces appareils devrai¬ 
ent bientôt bénéficier d'une plus grande capacité mé¬ 
moire dans leur version de base et surtout un nouveau 
modèle de TS-2000 devrait être commercialisé compor¬ 
tant un emplacement pour une cartouche de ROM. 


CHUTE LIBRE 


La barrière des 1300 F a quelque chose de magique en 
Angleterre puisqu'elle correspond au chiffre ron de 
100 livres. Tous les constructeurs se battent pour 
offrir un matériel dont le prix ne dépasse pas les 2 
chiffres. C'est ainsi qu'en Angleterre le Spectrum 
16K sera vendu pour 99 livres dès le mois de juin 83 . 
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EYROLLES FLIP 


Le livre de Philippe Oros et Alain Perbost que nous 
avions analysé et qui était accompagné d'une cassette 
est désormais doté d'une seconde cassette (ZX81 cas¬ 
sette numéro 2 : 13 jeux 1K. 


LE SALON SINCLAIR DE BRUXELLES 


Ce sont les 23 et 24 avril derniers que s'est tenu à 
Bruxelles le second salon Sinclair organisé par le dy¬ 
namique club MICRO-EUROPE. 

Presque toutes les marques d'accessoires, logiciels 
et publications en rapport avec les machines Sinclair 
étaient représentées à cette manifestation d'un style 
inconnu en France. 

Nos amis belges savent conserver la modestie des ama¬ 
teurs, même éclairés : sans chercher à exposer à la 
manière des professionnels au SICOB, ils préfèrent 1' 
ambiance quasi-familiale des alons d'un des meilleurs 
hôtel de Bruxelles à l'immensité impersonnelle d'un 
CNIT ou d'un Palais des Congrès. Huit cents visiteurs 
sur deux jours constituent un bon score pour ce qui 
s'apparente un peu à une réunion de radio-amateurs. 
Même les enfants ont libre accès aux machines expo¬ 
sées, et certains viennent avec des programmes qui se¬ 
raient tout à fait à leur place dans nos colonnes ! 

Il est vrai qu'en Belgique, le Spectrum est depuis 
bien longtemps disponible, et que son, couleur, et 
haute résolution permettent de concrétiser bien des 
projets. 

Le microdrive, annoncé en Belgique pour le premier 
jour du salon, a une fois de plus manqué son entrée. 
Parmi les logiciels extrêmement performants QUICKSIL- 
VA propose notamment le SPEAKEASY, capable de donner 
la parole à un Spectrum. Synthèse vocale ? non pas, 
mais bien mémorisation de parole : un texte est enre¬ 
gistré sur une cassette audio, lu dans la prise de 
chargement des programmes, puis peut être rappelé à 
volonté sur le haut-parleur incorporé ! Bien que cela 
pose des problèmes, il devrait être possible d'obtenir 
un résultat comparable sur le ZX81... 

Toujours à propose du Spectrum, nous avons noté plu¬ 
sieurs tentatives visant à l'équiper (par simple char¬ 
gement d'une cassette), de langages autres que le BA¬ 
SIC : 

L'assembleur, bien sûr, grâce aux classiques assem- 
bleurs/désassembleurs, mais aussi FORTH et PASCAL, 
sans oublier des BASIC compilés, et non plus inter¬ 
prétés, considérablement plus rapides. 


Au milieu de cette profusion de SPECTRUMS, le ZX81 
ou même 80 n'était pas oublié pour autant, puisque 
de nombreux accessoires et logiciels pour cette ma¬ 
chine étaient présentés. 

Il semble que le marché s'oriente vers des périphé¬ 
riques de faible coût, peut-être à cause des prix 
très comprimés des machines qui sortent actuellement. 
Signalons notamment un module haute résolution à 290 


F et une carte couleur SECAM à 395 F, respectivement 
chez DIDECAR (Belgique) et SAM (France). Malgré ces 
prix étonnants, il s'agit d'accessoires de valeur, 
mais demandant des logiciels performants, ce qui n' 
est pas pour effaroucher l'utilisateur moyen du ZX81 ! 

En conclusion, un salon tout à fait réussi, lors du¬ 
quel ont été dévoilées des informations inédites en 
France. Une formule très "conviviale", peut-être due 
au caractères naturellement accueillant des Belges, 
mais qui serait la bienvenue dans notre pays ! 

___Patrick Gueulle 


ADRESSES DES SOCIETES MENTIONNEES 

CIT, 4 rue de Bâle, 68300 SAINT LOUIS 
DIDECAR, 1 rue du Planiau, B-1301 BIERGES 
EYROLLES, Boulevard Saint-Germain, 75006 PARIS 

INFORMATIQUE SERVICE, 42 rue Parcheminerie, 

49000 ANGERS 

MEM0TECH, Memotech Limited, WITNEY, 0X0N, 0X8 6BX 
SAM, 6 avenue du Gai Leclerc, 91160 LONGJUMEAU 

S0FTEST, 10 Richmond Lane, R0MSEY Hampshire 
S05 8LA 

VIDEO TELEMAT REPORT, 54 rue Ramey, 75018 PARIS 


Création de Clubs 

GISMO (Région ouest) Animateur Frédéric Realland CS3 
Bd Jean Mermoz, 35998 RENNES CEDEX 

CLUB INFORMATIQUE, Foyer Socio-Educatif 
Collèges Jules Ferry, C0NFLANS 

Animateur Mme MALET, Collège Jules Ferry, 919 51 81 

MICR0TEL - ADEMIR - TREMBLAY 
Collège Romain Rolland, 93410 VAUJ0URS 
Animateur Pascal Vieville 

CLUB ZX de Lille, Animateur EHKIRCH J.0. 

206 rue Solférino, 59000 LILLE 

CLUB MICRO-FOST (Marine Nationale) 

Foyer Equipage CSM Roland Morillot 
Les Roches - DOUVRES, 29240 BREST NAVAL 


16 - ORDI-5 N° 4 - Juillet 1983 









Microprocesseur Z 80 A 
Langage Microsoft Basic 
Affichage direct antenne télé SECAM 
Clavier 45 touches pleine écriture, 

+ clef d’entrée, + graphismes, 

+ bip sonore anti-erreurs... 


— Texte + graphismes mixables 9 couleurs 

— Edition et correction plein écran 

— Son incorporé 

— Toutes options : extension + 16 K + 64 K, 

.. interface imprimante, imprimante, stylo optique, 
manettes, jeux, modem, disquettes... 


L INCROYABLEMICRO-ORDINA TEUR COULEUR SECAM ! 


3 

a 

> 

O 



VSDEO TECHNOLOGIE FRANCE 

19, rue Luisant 91310 Monthléry 

Tél. (6)901.93.40-Télex : SIGMA 180114 


A retourner à : VIDEO TECHNOLOGIE - 


BON DE COMMANDE 


19, rue Luisant - 91310 Monthléry - Tél. (6) 901.93.40-Télex SIGMA 180114 


Je désire recevoir: 

□ Version A 

Micro-ordinateur couleur SECAM LASER 200 . 990 F TTC 

Kit d’accessoires: 


' Modulateur SECAM incorporé 
+ Transfo 220 V 50 HZ 

I + 3 interfaces : câble télé, câble vidéo, câble lecteur K7 
+ Livre utilisateur Basic en français, 150 pages 
I + Livrets techniques en français 
+ Cassette 

+ Garantie 1 an, pièces et main-d’œuvre 
Le kit complet . 290 F TTC 

Extensions - Périphériques - Interfaces 1 F 

□ Extension de mémoire 16 K RAM (soit 20 K disponibles) 540 F TTC 

□ Extension de mémoire 64 K RAM (soit 68 K disponibles) 

(livraison fin octobre) . 990 F TTC 

□ Lecteur de cassette DR 10 . 490 F TTC 

□ Interface d’imprimante « Centronics ». 290 F TTC 

□ Imprimante 4 couleurs (livraison fin septembre) .. . 2.360 F TTC 

□ Manettes de jeux (la paire) (livraison fin septembre) . 290 F TTC 

□ Stylo lumineux (livraison fin octobre) .N.C. 

□ Interface disquette (livraison fin octobre) .N.C. 

TOTAL DE MA COMMANDE : FTTC 


Nom_____ 

Prénom ___ 

N°_Rue ___ 

Ville _____ 

Code Postal I_i_ . . . I 

Je choisis de payer le total de ma commande : 

□ Au comptant, par CCP, chèque bancaire ou mandat, à l’ordre 
de VIDEO TECHNOLOGIE FRANCE. 

□ Contre-remboursement au transporteur, moyennant une taxe de 
60 F. 


Signature 


Au cas où je ne serais pas entièrement satisfait, je suis libre pendant un délai de 15 jours, 
de retourner à mes frais dans son emballage d’origine le matériel que j’aurai reçu et je 
serai intégralement remboursé des sommes que j'aurai versées. 


ORDI 5-1 













Librairie 




LA PRATIQUE DU ZX SPECTRUM 


Par Xavier LINANT DE BELLEFONDS 
Editions : PSI 
Prix : 82 F 
82 pages 


Les ouvrages en français sur le Spectrum commencent 
à apparaître avec une certaine anticipation sur le 
produit lui-même. Outre la publication de plusieurs 
traductions (notamment chez Eyrolles) on remarque 
ainsi la sortie chez P.S.I. de la Pratique du ZX Spec- 
trum qui comprend deux tomes. Chacun des tomes a été 
confié à un auteur différent : le tome 1 (BASIC ap¬ 
profondi, initiation au langage machine) à Xavier Li- 
nant de Bellefonds et le tome 2 (utilisation du lan¬ 
gage machine) à Marcel Henrot. 

La même équipe a déjà travaillé sur le ZX8l avec une 
•répartition identique et ORDI-5 a consacré à chacun 
de ces ouvrages une notice bibliographique très posi¬ 
tive. Nous nous concentrerons ici sur le tome 1 de ce 
nouveau livre ; l'étude approfondie du tome 2 sera 
entreprise ultérieurement. 

Dans sa démarche, " la Pratique du ZX Spectrum " res¬ 
semble assez à " la Pratique du ZX81 " : même progres¬ 
sivité dans l'exposition (diverses applications BASIC, 
étude de l'organisation du système, initiation au lan¬ 
gage machine) et même talent vulgarisateur, des ques¬ 
tions relativement difficiles (organisation d'un trai¬ 
tement de texte, dichotomie dans les fichiers, courbes 
de régressions, représentation en plusieurs dimensions, 
règles de l'acoustique musicale, etc.) étant abordées 
avec une clarté remarquable et. ce qui ne gâche rien, 
un style assez élégant. 

Quelques nettes améliorations distinguent cet ouvrage 
du précédent livre de X.L.B. : d'abord les applica¬ 
tions sont plus équilibrées (il y a moins de très gros 
programmes et une plus grande diversité de programmes 
moyens choisis dans des domaines plus différenciés) 
et le détail a été plus soigné (moins de fautes de 
typographie et moins de sous-entendus laissés à la 
sagacité du lecteur). Enfin le livre est plus épais 
- plus de "main" comme on dit - et comporte en édi¬ 
tion d'origine un index bien utile. 

Certains défauts demeurent toutefois : là aussi il 
est difficile de parler d'un véritable ouvrage d'ini¬ 
tiation car il implique l'assimilation parfaite du 
manuel, 


A ces réserves près, le livre de Xavier Linant de 
Bellefonds sur le Spectrum nous apparaît être un "must" 
pour toute personne cherchant à réellement programmer 
son Spectrum à la hauteur de ses possibilités multi¬ 
ples. 


MAITRISEZ VOTRE ZX81 


Par Patrick Gueulle 

Editeur : ETSF - MICRO SYSTEMES 

Prix : 60 F environ 1 

150 pages 


Deuxième livre de Patrick Gueulle consacré au ZX81 
( Pilotez votre ZX81 a déjà fait l'objet d'une analy¬ 
se dans nos colonnes), ce livre sympathique se pré¬ 
sente un peu comme la suite de l'ouvrage précédent en 
proposant au lecteur d'aller plus loin avec son ordi¬ 
nateur dans deux directions : 

- les interfaces qui permettent de placer le ZX81 au 
centre d'un système finalisé pour une activité parti¬ 
culière, 

- le langage machine. 

Sur ces deux points le travail est d'une grande qua¬ 
lité pédagogique : le chapitre 3 consacré aux inter¬ 
faces est un modèle de clarté sur un sujet qui déso¬ 
riente souvent les débutants qui souhaitent avoir re¬ 
cours à un ordinateur pour effectuer une fonction par¬ 
ticulière sans pour autant se transformer en program¬ 
meur. Le sujet est difficile et P.G. s'en tire bien 
avec un bon équilibrage entre les diverses illustra¬ 
tions (ZX musicien, ZX réveil matin, ZX passeur de 
diapositive, ZX standardiste, ZX chien de garde, etc.) 

L'initiation au langage machine, partie composée de 
trois chapitres qui termine l'ouvrage est aussi du 
très bon travail : cette initiation est menée d'une 
manière enlevée et didactique et peut procurer au 
lecteur la satisfaction de connaître les principes 
du langage machine en un nombre de pages limitées. 
Toutefois ce -livre n'est pas parfaitement homogène : 
il comprend en particulier une petite faiblesse avec 
son chapitre 2, chapitre qui reprend à une exception 
près (protection de programme par mot de passe) des 
développements désormais bien connus de l'utilisateur 
du ZX81 (grandes régions de la mémoire, intervention 
sur les octets de la zone programme etc). La sortie 
relativement récente de cet ouvrage (printemps 83) 
donne malheureusement à ce chapitre une allure de dé¬ 
jà vu, ce qui n'aurait pas été le cas s'il était paru 
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un an plus tôt, époque où la littérature était encore 
peu abondante sur ces sujets. 

A ce chapitre près le livre est intéressant et même 
indispensable pour cette catégorie particulière d'u¬ 
tilisateurs qui savent, grâce au fer à souder plus 
quelques routines en langage machine, atteler leur ZX 
à quelque tâche inédite, autrement dit le transformer 
en esclave intelligent : sur ce point le livre tient 
les promesses de son titre. 


LANGAGE MACHINE TRUCS ET ASTUCES SUR ZX81 


Par Gabriel NOLLET 
Editions EYROLLES 
Prix : 70 F environ 
160 pages 


A 0RDI-5 nous ne mâchons pas nos mots ; c'est le pri¬ 
vilège de l'indépendance. Nous avions trouvé: le pre¬ 
mier livre de Gabriel Nollet (La conduite du ZX81) 
était mauvais, nous dirons tout aussi franchement et 
simplement que son deuxième livre est bon : voici 
(nous ne dirons pas "enfin" car il y en a maintenant 
plusieurs autres) un livre clair sur le passage au 
langage machine avec le ZX81. 

Selon une méthode assez payante au point de vue de 
l'exposition Gabriel Nollet aborde les différentes 
questions dans l'ordre où il se les est probablement 
posées lui-même : que signifient les instructions du 
Z80, où et comment stocker un programme machine, com¬ 
ment mettre au point ses programmes, comment les dé¬ 
velopper éventuellement à l'aide d'un assembleur... 
Cette démarche n'est pas théorique et laisse donc de 
nombreux points dans l'ombre : il n'en reste pas moins 
que ce livre convient pour une initiation moyenne cor¬ 
respondant à ce que souhaitent la majorité des posses¬ 
seurs de ZX81. 

Naturellement chaque livre à ses petits défauts, par 
exemple l'on relèvera une certaine sécheresse dans 
la liste alphabétique des instructions du Z80 qui com¬ 
mence l'ouvrage, sorte de répertoire un peu difficile 
d'accès en l'absence d'une entrée en matière systéma¬ 
tique ; étonne ensuite l'absence d'organigrammes dans 
les constructions de jeu, préjudiciable à la compré¬ 
hension rapide d'un certain nombre de routines que 
l'on doit transcrire sur parole ou se donner du mal 
à décomposer . 

Conclusion : après avoir lu ce livre, le lecteur ne 
sera pas un programmeur machine confirmé mais son i- 
nitiation aura été menée rondement et sans peine ex¬ 
cessive. Cet ouvrage aéré et efficace peut prendre 
place valablement parmi les outils recommandés. 


THE INS AND OUTS OF THE TIMEX TS 1000 / ZX81 


Par Don TH0MASS0N 
Editeur : MELBOURNE H0USE 
Prix : 70 F environ 
110 pages 


Voici une authentique mine d'or pour l'utilisateur 
averti du ZX81 : Melbourne House avait déjà fait du 
bon travail avec la publication des travaux de Ian 
Logan (ZX 8 1 ROM Disassembly), mais cette fois-ci, le 
chef-d'oeuvre est complet. Après l'aspect logiciel, 
c'est aujourd'hui le circuit électronique du ZX81 qui 
est passé sous une loupe qui pourrait bien être celle 
de Sherlock Holmes ! 

Depuis l'organisation de la mémoire jusqu'aux ports 
d'entrée-sortie en passant par les très mystérieux 
circuits vidéo, rien n'est laissé dans l'ombre de ce 
que SINCLAIR aurait visiblement préféré garder secret. 

Muni d'une documentation aussi fouillée, l'utilisateur 


compétent est armé pour concevoir lui-même des exten¬ 
sions très performantes telles que compléments de mé¬ 
moire (RAM ou ROM), cartes d'entrée-sortie, synthéti¬ 
seurs sonores, interfaces pour imprimantes ASCII et, 
pourquoi pas, cartes haute'résolution graphique. 

On pourrait reprocher à l'auteur de n'avoir pas publié 
de tracés de circuits imprimés ni de véritables plans 
de câblage. En fait, nous approuvons cette démarche, 
qui ne cherche pas à faire acheter le livre par des 
amateurs qui ne seraient, pas en mesure d'en tirer par¬ 
ti. Après tout, Logan ne publiait pas davantage d'e¬ 
xemples de logiciels utilisant les ressources de la 
ROM... 

Thomasson a lui aussi choisi très honnêtement "d'an¬ 
noncer la couleur" en prévenant ses lecteurs de l'im¬ 
portance du travail qu'il leur reste à accomplir, é- 
ventuellement au prix de "quelques maux de tête" (sic). 

Quoiqu'il en soit, c'est une somme considérable de 
renseignements de tout premier ordre que l'on peut se 
procurer pour l'équivalent de six livres Sterling, ce 
qui n'est pas cher payé si l'on se donne la peine d' 
imaginer le travail qui a du être celui de l'auteur. 

En bref, ce livre c'est tout simplement la mise à la 
disposition de tout un chacun des informations jalou¬ 
sement gardées par SINCLAIR et par quelques fabricants 
d'accessoires vendus à prix d'or... L'Intelligence 
Service à votre disposition, en quelque sorte. En un 
mot. Bravo ! 


DECOUVRIR LE SPECTRUM 


Par Luc SMEESTERS 
Editions DIDECAR 
Prix : 70 F environ 
150 pages 


C'est bien le premier !... Premier livre en français 
sur le SPECTRUM, et premier ouvrage des toutes jeunes 
EDITIONS DIDECAR. Luc Smeesters n'est guère connu (pour 
le moment !) en France, car c'est en Belgique qu'il 
exerce ses talents de journaliste de la presse micro- 
informatique, de radio-amateur, et... d'informaticien 
professionnel. 

Un certain professionnalisme transpire effectivement 
de DECOUVRIR LE SPECTRUM, dont une grande partie trai¬ 
te avec brio quelques applications de l'informatique 
dans le domaine des fichiers, du tri, et du traitement 
de textes. 

Le débutant n'a pas été oublié pour autant, puisque 
un long chapitre explique par le menu la plupart des 
termes courants de l'informatique. 

C'est cependant aux transfuges du ZX81 (ou 80 !) que 
semble surtout s'adresser le livre : une comparaison 
très complète des trois machines permet à l'habitué 
des premiers SINCLAIR de passer la "vitesse supérieu¬ 
re" dans les meilleurs délais, et donc de véritable¬ 
ment DECOUVRIR LE SPECTRUM. 

Cette découverte risque par contre de s'avérer plus 
laborieuse pour le débutant intégral : la variété des 
matières traitées dans l'ouvrage (jusqu'à des descrip¬ 
tions de périphériques qui ne sont qu'annoncés) ne 
laisse plus guère de place à une prise en mains pro¬ 
gressive comme nous les aimons. A ce niveau, il fau¬ 
dra recourir à la documentation du fabricant, très 
bien conçue semble-t-il. Dans sa préface, d'ailleurs, 
Raymond BETZ, président du Club MICRO EUROPE, ne se 
trompe pas en qualifiant l'ouvrage de "complément in¬ 
dispensable aux manuels d'utilisation". 

En conclusion, c'est surtout à un public assez averti 
que ce livre paraît convenir le mieux, mais nos lec¬ 
teurs ne sont-ils pas déjà de fins programmeurs de 
ZX 7 
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L'aurdinater 


en claçe 


Onoooacîci 
□□aaaoaoI 
a a aaoaaaI 
a a□□□ooa 


Vos didacticiels vite ! Nous appelons ainsi préten¬ 
tieusement tous les programmes d'aide à l'enseigne¬ 
ment. Si courts qu'ils soient, il y a toujours une 
belle idée derrière. 


SOUPAPE< 
FERMEE -I 
SOUPRPE > 
OUUERTE 



PISTON 


CYLINDRE 


MULTIPLICATION INFINIE... 


LE MOTEUR A EXPLOSION 


Un éclaté animé du moteur à explosion : quand les li¬ 
vres de physique seront-ils aussi attrayants que le 
joli programme de Y. Weiss ? 

S REM MOTEUR R EXPLOSION 

S REM--- 

7 REM (OORDI-5 ET Y.UEISS 
10 REM PRESENTATION 
sa GOSUB 1000 

00 PRINT RT 8,3.; "SOUPAPE > -| " 

35 PRINT RT 9,1;"OUUERTE" 

4.0 PRINT RT 6,1;"SOUPAPE< -I" 

4S PRINT RT 7,1;"FERMEE" 

30 PRINT RT 10,10;"CYLINDRE" 

S0 PRINT RT 6,1B;"^";HT 7,15; 

"S AT B,1S; "Sm " 

65 PRINT RT 7,16;"PISTON" 

70 PRUSE ISO 
75 CLS 

60 GOSUB 1000 
90 PRINT RT 0.10: 

100 PRINT RT a,0; "AIR+ESS >-l 


103 PRINT RT 6, 
; RT B,10; "S" . 

105 PRINT RT 6, 
110 GOSUB 2000 
_117 PRINT RT 8, 

120 PRINT RT 0, 
[3" 

125 PRINT RT S, 
130 GOSUB 2100 
135 PRUSE 200 
14.0 PRINT RT 0, 


3"; RT 6,3;"®" 

> -I '■ 

-1 

•ai a agaaæ^a 

> -I " 


PRINT RT 7,11; 

GOSUB 2000 
PRUSE 200 

print rt 0.10: " fereirajaaaiafflr 

PRINT RT 7,11;" " 

PRINT RT 6,3; "GfiZ < -I " 
GOSUB 2100 

PRINT RT 6,10;"ffl";fiT 6,3;' 
6 , B J "18" 

PRUSE 200 
CLS 

GOTO 80 
STOP 

FOR Y=10 TO 20 
PRINT RT S,Y; 

PRINT RT 3,Y;"»" 

NEXT Y 

FOR X=S TO 9 
PRINT RT X, 10; " I" 

NEXT X _ 

PRINT RT 7,9; " -B" 

RETURN 

REM MARCHE ARRIERE 
LET R* = "r”l 1—" 

FOR «J — 13 TO 18 
FOR 1=1.TO 2 

PRINT RT 6,J+r;fl$Cl TO 2) 
PRINT RT 7,U + I;Ri<3 TO 4.) 
PRINT RT S,u+I;RS(5 TO 6) 
PRINT RT e.U-l;"S";RT 7,0- 
; rt 6 ,'J-l; "É" 

PRINT RT 6,Ji" 

.PRINT RT 7, J;" 

PRINT RT S,J;“ 

NEXT I 
NEXT U 
RETURN 

REM MARCHE RUANT 

FOR jSlo TO 1” STEP -1 
FOR 1 = 1 TO 2 

PRINT RT 6,J-I;fl*(l TO 2) 
PRINT RT 7 , J-I; fl$ (3 TO 4.1 
PRINT RT 8,J-I;R*C5 TO 6) 
PRINT RT 6,J;" 

PRINT RT 7,d;" 

PRINT RT 8,U;" 

NEXT I 
NEXT U 
RETURN 


Pour ceux qui désirent creuser l'algorithme de la mul¬ 
tiplication, voici un programme qui permet de contour¬ 
ner la limitation des 9 chiffres significatifs du Sin¬ 
clair. 


1 REM MULTIPLICATION(C3ORDI—5 

S REM -'- 

10 DIM M (4-3 

20 DIM N (4-3 

30 DIM P (4-, 4-3 

4.0 DIM 0(73 

50 DIM T(73 

55 PRINT "ENTREZ M PAR TRANCHE 

S DE 4- CHIFFRES" 

56 PRINT 

60 INPUT MC43 

61 INPUT M(33 

62 INPUT N (2) 

63 INPUT M(13 

70 PRINT M (43 ; M (33 ; M (23 ; M (13 
72 PRINT 

75 PRINT "ENTREZ N PAR TRANCHE 

S DE 4 CHIFFRES" 

76 PRINT 

80 INPUT N (43 

81 INPUT N(33 

82 INPUT N (23 

83 INPUT N(13 

90 PRINT N (43 ; N (33 ; N C23 ; N (13 
100 FOR 1=1 TO 4 
110 FOR J=1 TO 4 
120 LET P ( 1 j <J 3 =M(I) *N t <J 3 
130 NEXT U 
140 NEXT I 
200 LET O(13=P(1,13 
210 LET <3 (23 =P (1,23 +P C2, 13 
220 LET O (3) =P <1,33 +P (2,23 +P O, 
U 

230 LET 0(43 =P (1,43 +P (2,33 ■«•P 13 , 
23 +P (4,13 

240 LET O(53=P(2,43+P(3,33+P(4, 
2) 

250 LET O(63=P(3,43+P(4,33 
260 LET O(73=P(4,43 

300 GOSUB 1000 .. 

400 PRINT AT 15,0;Q(73 ; " ; O(63 

; O (53 ; " " ; G» (43 ; w ";0(33;" ";Q(23 

'410'PRINT AT 19,0;"N""OUBLIEZ P 
AS DE RETABLIR LES ZEROS H 

RNQUANTS DANS LES TRANCHES DE 

4 CHIFFRES" 

411 STOP 

1000 FOR 1=1 TO 6 

1010 LET T(I3=INT (©(I3/1E43 

1020 LET Q (13 =Q (13 -T CI) X1E4 

1030 LET O (1 + 13 =G3 (1 + 13 +T (13 

1040 NEXT I 

1050 RETURN 


. Pierre Legoux 
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10 

20 

4-0 

4-1 

4-2 

4.5 

50 

50 

100 

110 

120 

3) 

130 

14.0 

150 

155 

160 

170 

180 

200 

210 

215 

220 


REM (C)ORD1-5 

REM- 

CLS 

PRXNT "METTEZ PIECES" 

XNPUT B 

PRINT "CREDIT=";B 

PRINT RT ai,i;"MISEZ DE !.. 

DIM N (3) 

IF INKEY$ <THEN GOTO 20 
LET I$=INKEY $ 

IF 1$ = "" THEN GOTO 4-0 
CLS 

IF URL 1$ > B THEN GOTO 6 
IF URL I$=0 THEN GOTO 6 
PRINT RT 1,20;"MISE=";1$ 

FOR R = 1 TO 3 
LET N = INT (S*RND) 

PRINT RT 10,10+R*3;CHR$ (N+ 


LET N (R) =N 
NEXT R 

IF NCI) ON (2) THEN GOTO 200 
LET L=3 

= N (3) THEN LET L = 1Q 
LET Z $ = " GRGNE" 

GOTO 215 

LET Z $ ="PERDU“ 

LET L = -1 

LET B=B+L*URL 1$ 

PRINT RT 1, l; Z$; L*URL I 


230 GOTO l+4-*NOT (NOT Bî 


.Jean-Michel Danjou 


Qu’est-ce que la rubrique "Juvénilia" ? 

C’est le point de rencontre des oeuvres de jeunesse, 
comme disent les latinistes en parlant des grands au¬ 
teurs classiques. La rédaction d'ORDI-5 a dans l’idée 
que sur les quelque 50 000 utilisateurs francophones 
du. ZX81, il doit y avoir une très forte proportion 
de jeunes et même de très jeunes. 

Vous qui avez moins de 14 ans, cette rubrique vous 
est ouverte. Bien sûr, si vous êtes déjà capable, 
comme le jeune Simon LANE, de nous écrire un program¬ 
me de 800 instructions pour la résolution du Rubik’s 
Cube, on vous trouvera une autre place dans la revue ! 


L’INTRUS 


Votre mission : détruire le vaisseau ennemi. Chaque 
vaisseau anéanti vous apporte un nombre de points dé¬ 
croissant avec l'altitude de ce dernier. A la fin de 
la partie, votre score total est affiché. Utiliser 
les touches curseur. 


1 

2 

3 

5 

10 

15 

20 

25 

30 

35 

4-0 

4-2 

4-5 

50 

55 

50 


REM 

REM 

REM 

LET 


L"INTRUS 


(OORDI-5 ET M.LRUNE 
C = 0 


LET U=C 
LET X = 15 
LET 


Y =21 
LET R=C 
LET B=R 
LET R=R+1 
CLS 

PRINT RT B, R; "HKJh" 

PRINT RT Y , Xj’VEJV* 

IF fl=31 THEN LET B=B+3 
IF fl=31 THEN LET R=0 
IF B=21 RND R=3 THEN GOTO 1 

62 IF INKEY$ = “8" THEN LET X=X + 

„ 65 IF INKEY$="5" THEN LET X=X- 

s 70 INKEY*»"7” THEN GOSUB 13 

75 IF U=B RND X=R THEN GOTO 9® 
80 IF U < B +3 THEN LET U=21 
85 GOTO 35 
90 PRINT RT B,R;"W 
95 LET L=(25-B)ïl0 
100 LET C=C+L 
105 PRINT RT B,R —3;L 
110 PRUSE 120 
115 GOTO 05 

120 PRINT RT 21,17;"TERMINE" 

125 PRINT RT 11,13;"SCORE:C 

13® STOP 

135 LET U-U-3 

14-5 PRINT RT U , X + l; " : 

ISO RETURH 


M. Laune 


JACK POT 


Voici un petit Jack Pot assez bien tourné qui tient 
sur XK. Pour le rendre plus difficile on peut rempla¬ 
cer la ligne 110 par : LET N=INT(S*RND). 


Donnez un nom à votre entreprise (même si vous êtes 
trop jeune encore pour la fonder). 

Entrez les mots clés qui caractérise votre activité 
et le programme CREA-N0MS vient au secours de votre 
imagination pour trouver une belle raison sociale 
pour le registre du commerce. 


REM CRER NOMS 
REM (C)ORDI—5 


3 REM 
30 DIM L ( 100) 


BRUNO URLLY 


4.0 DIM M $ (100,10) 

90 LET N=0 

100 PRINT "DONNEZ UN NOM R UOTR 
E ENTREPRISE" 

160 PRINT ,," DONNEZ UOS C 

LES ; " 

180 PRINT ,,"PUIS TRPEZ""FIN""P 
OUR LRNCER LR PROCEDURE DE CRERT 
ION RERTOIRE." 

190 PRINT 
200 INPUT R$ 

210 IF R$ = "FIN" THEN GOTO 4-10 
220 IF LEN R$>10 THEN GOTO 200 
230 LET N =N +1 
24-0 LET M$ (N) =R$ 

25© LET N(N)=LEN R$ 

260 PRINT R$; ", ” ; 

270 GOTO 200 
4-00 CLS 

410 PRINT " DE COMBIEN DE MOTS 
CLES LE NOM" 

4-20 PRINT "DOIT-IL ETRE COMPOSE 
E 2,3,4-, 5 7" 

4-30 INPUT NM 

4.4.0 IF NM <2 OR NM >5 THEN GOTO 4- 
30 

500 CLS 

510 SCROLL 

520 FOR 1=1 TO NM 

| 00 kII.£=£NT CRND*N)+1 

Ise NEXT T I M$<H1 to Lm,); 

SB0 GOTO 510 


Bruno Vally 


ACCIDENTS ROUTIERS 


A la veille des grands départs de l'été, Olivier Bes- 
sette vous suggère d'inciter vos parents à la pruden¬ 
ce avec ce court logiciel demi-graphique. 


1 REM ACCIDENTS ROUTIERS 

2 REM--- 

3EREM (C)O.BESSETTE ET ORDI-5 

10 PRINT "UITESSE EN KM/H" 

20 INPUT X 
25 LET X=X/1O0 

32 LET G =SGN PI 

33 LET H =21 
4-2 CLS 

4-4- FOR N=G TO H 5TEP G+G 
50 PRINT RT N,6;”|";rt N,16;"B 

70 LET B = INT (RND*18) 

80 LET C = INT (RND *8) +7 
90 PRINT RT B,C;"H" 

100 NEXT N 
110 LET D =20 
120 LET E =D yS 

135„ p RIhlT RT D,E + G; TRB E+G 

";trb E+ 

8")-(INKEY 


135 PRINT RT D,E+G; 


G ; 

14-0BLET D=D-X 
^150 t LET G=G+(INKEY$ 

IÛ ioTO * H+H N PI THEN GOTO 130 


0. Bessette 
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On reproche souvent au ZX81 de ne pas être capable de 
sauvegarder sur cassette le contenu du fichier d’af¬ 
fichage. Bien d'autre machines disposent de cette in¬ 
téressante possibilité, et des programmes ont été mis 
au point pour corriger ce défaut du petit SINCLAIR. 

Cependant, une étude approfondie de la procédure de 
sauvegarde sur cassette montre que le fichier d'affi¬ 
chage est bel et bien enregistré en même temps que 
programme et données. Avec une extension 16 K, cette 
partie de l'enregistrement correspond à une image re¬ 
lativement fixe sur l'écran TV durant la sauvegarde 
ou le rechargement. 

L'ennui est que le lancement manuel (en mode comman¬ 
de) de SAVE puis NEWLINE, efface automatiquement le 
fichier en exécutant la routine CLS. On sauvegarde 
donc un écran vide ! 

Par contre, si la sauvegarde est déclenchée par le 
programme lui-même, l'écran se trouvera reconstitué 
dès la fin du chargement ! Il est facile de s'en con¬ 
vaincre en exécutant le programme suivant : 



iO: FOR F = 1 TO 704. , . 

a©' pr int "P"; . . 

.30.- N EXT F , . ■ • 

ia .SflUE. "P" V ■> 

50 REM COPYRIGHT 1933 


puis en le rechargeant (après un NEW), par LOAD "" 
NEWLINE. Un avantage supplémentaire est que pas un 
octet n'est consommé en plus du fichier d'affichage, 
et que cette méthode est donc applicable sur le ZX81 
de base (1 K octets)... 


face comme ci—dessus. "RUN" assure un fonctionnement 
tout à fait normal, comme s'il s'agissait d'un program¬ 
me entré d'une seule traite. 


.Guy Marchai (Belgique) 


UNE PROPRIETE INTERESSANTE DE LA FONCTION LIST 


Voici un petit programme qui démontre une propriété 
■intéressante de la fonction LIST. Une fois le program¬ 
me lancé avec GOTO 100 on voit la REM se modifier à 
l'écran : contrairement à d'autre ordinateurs le SIN¬ 
CLAIR accepte le LIST à l'intérieur d'un programme ce 
qui peut être utilisé pour de nombreux effets plus 
conséquents que celui proposé ici qui est pourtant 
déjà curieux. 


1 REM 00000000000000000000000 
00000000000000000000000000000000 
00000000 

10 FOR 1=1 TO 63 
20 IF F=1 TMEN POKE 1+16513,I 
30 IF F =2 THEN POKE 1 + 16513,28 
4.0 LIST 

5© PRIMT RT O..0; 

55 NEXT I 

60 LET F=F+1 

70 IF F =3 THEN LET F = 1 

85 GOTO 10 

99 GOTO 9999 

100 SRUE "POKE OU COMMENT LE LR 
i'IGRGE MRCHINE S INSCRIT SUR LR R 
ESI" 

110 LET F=1 
120BGOTO 10 


.Patrick Gueulle 


Jean-Claude Deprez 


LA BARRIERE DU 9999 


On a parfois besoin de loger deux programmes complé¬ 
mentaires l'un à la suite de l'autre ou ajouter un 
programme à un autre existant, sans vouloir renuméro¬ 
ter toutes les instructions. Voici comment procéder : 

- faire "POKE 16509,39" et "NEWLINE" 

- ensuite faire "POKE 16510,15" et "NEWLINE" 

La première adresse sera numérotée "9999" et il sera 
impossible de loger une instruction au-delà de ce pro¬ 
gramme, mais "NEW" l'effacera. 

Pour effacer ce programme, il suffit de faire "9999" 
et "NEWLINE" tout simplement et il disparaîtra entiè¬ 
rement. Le programme ajouté subsistera. 

Si vous voulez introduire un programme entier au mi¬ 
lieu d'un autre programme, il faut faire "POKE 16510," 
et un nombre compris entre 0 et- 255- On pourra écrire 
des instructions de part et d'autre de ce programme, 
celui-ci ne comptant que pour une seule ligne. Il s'ef- 


ORDINATEUR A BASCULE 


Lorsqu'on programme un jeu qui se joue à deux, on a 
souvent besoin de conserver dans une mémoire à qui 
c'est le tour de jouer. Cette sorte de bascule prend 
donc les états 1 ou 2 suivant le cas. 

Appelons B cette bascule. Pour éviter les test du gen¬ 
re IF B=1 THEN B=2..., on peut écrire tout simplement: 

B = (B0R2)-1 

On gagne ainsi un temps précieux et de l'espace en mé¬ 
moire. 

Lorsqu'on programme en langage machine on pourra uti¬ 
liser l'astuce suivante : 

LD B, bascule (état 1 ou 2) 

XOR 3 

et B contient la nouvelle valeur de la bascule. 


.Jean-Max Nicolas 
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.Dessiner un papillon.... 


Balle de Match 


» 

_ ÏLB B 

> n B b en 
" % B » B % 

« 



Guy Gantz 


1 FRST 

1.0 FOR J = 1 TO 10 
20 FOR 1=0 TO Jïl2 

30 PLOT 32+J*2ïSIM {I/Vv.l-»6.U f 2 
2+U*2*COS (I/(J+3) »PI) 

4-0 NEXT I 
50 NEXT «J 
60 SLOU 


ou un poisson - 


Olivier Bremond 


20 FOR B = -a+fl/4. Tü S-fl/4. STEP 

1 

30 PLOT B-fcS+30+fi , B*B + R 
35 PLOT B *B + 30 + R , 4.0 —B *B +R 
4.0 NEXT B 


Tapis évolutif 


10 LET C=PEEK 18398+258«PEEK 1 
8399 

1S FRST 

15 LET X = INT (RND+11) +128 
20 FOR XoB TO 21 
30 FOR vJ<=0 TO 21 
4-0 POKE C+2*I+1+31*Ü,8 
50 POKE C+2*Ü+1+31*I,X 
60 POKE C+2*I+33*d,INT CPEEK 1 
84-36 /2B) 

70 POKE C+2*<J+33*X, INT CPEEK 1 
64.37/25) 

60 NEXT J 
90 NEXT X 
95 SLOU 
100HBOTO 15 




Ch. Lacour 


10 FOR X=0 TO 2*PI STEP PI/40 
20 PLOT 20*-SIN X +30 , 20fcCOS X+S 

30 PLOT 10*SXN X+30.6+X+2 
4.0 NEXT X 


r 

Ch. Poisson 


Les dents de la mer. 


(enregistrer le programme 

I 

avant de le lancer car il 

I , 

se détruit à l'exécution) 



Ch. Martin 


. Jf TÎ5S» if 

Si t:L+SI N ( 2 TI - n 

30 NEXT I -h* 




MIDI-DETECTION 

6, rue Jean Suau, 31000 TOULOUSE 
Tôl. : (61) 23.99.88 


SUD-OUEST-DETECTION 

6, rue Fernand Philippart, 33000 BORDEAUX 
Tél. : (56) 81.11,99 


© 





0 64 K (48 K 
utilisateur) : 2180 F 

© Cordon Péritel : 100 F 

© Adaptateur U.H.F. 

(N & B) : 250 F 


©Complet: 990 F 


NOMBREUX LOGICIELS 


C 


ZM 


® Imprimante : 

690 F à 790 F 
© Gamme Memotech 
16 K : 395 F, 32 K : 
665 F, 64 K : 995 F, 
H.R.G. : 645 F, etc. 


bon DE COMMANDE A EXPEDIER A L’UN DE NOS 2 MAGASINS 

NOM . 

ARTICLE 

QUANTITÉ 

PRIX 

Prénom ... 




Adresse . 








Délai indicatif 1 semaine - Frais de port : + 30 F. 


TOTAL 




















graphisme ■ 

Ecran, mon bel écran 






























































bricolage 


Mettez la 
dans votre 

La couleur pour 400 F sur votre ZX81 ! Nous avons 
pris contact pour vous avec cette extension alléchan¬ 
te : le résultat est intéressant même si de nombreu¬ 
ses limitations font de cette carte un simple gadget 
très payant pour un prix somme toute raisonnable. 


UNE PALETTE DIFFICILE A MANIER 


Cette carte s'insère au connecteur arrière du ZX81 
et deux fils la relient à l'intérieur de celui-ci, 
ce qui nécessite un petit démontage qui peut faire 
peur à quelques uns, spécialement ceux qui ont at¬ 
tendu leur ZX plusieurs mois... Elle mesure 11,8 x 
6,4 x 3,9 cm. Sa version de base fonctionne avec la 
prise antenne, mais il est préférable de l'utiliser 
avec la prise péritel, du moins d'après notre expé¬ 
rience . 

Après avoir branché le fil antenne, on aperçoit seu¬ 
lement un fond vert sans curseur. En essayant de fai¬ 
re le traditionnel 10 PRINT "BONJOUR", je me suis a- 
perçu que les mots-clés n'apparaissaient pas malgré 
le "titillage" du potentiomère prévu à cet effet. Les 
couleurs sont médiocres, se fondent entre elles et 
sont parsemées de rayures rouges. J'ai donc pensé 
que le résultat serait meilleur avec la prise Péritel. 
J'ai branché la prise Péritel sur télévision récente; 
l'écran devient bleu avec un curseur de la même cou¬ 
leur mais se distinguant du fond. J'ai refait 10 PRINT 
"BONJOUR", et cette fois-ci, les mots-clés étaient 
visibles et les couleur parfaites. 

Pour obtenir les couleurs, il suffit de mettre une 
lettre en vidéo inversée qui correspond à la couleur 
souhaitée avant la partie de la ligne à colorier . 
Celle-ci sera coloriée à partir du caractère en vidéo 
inversé. Pour colorier une partie seulement de la li¬ 
gne, il faut mettre la lettre en vidéo inversée cor¬ 
respondante au fond, là où vous désirez ne plus avoir 
de couleur. 

Le principe - astucieux - de la commande couleur est 
donc celui d'une trame horizontale correspondant à 
une ligne de caractère sur laquelle on déclenche et 
on interrompt l'apparition d'une couleur. 

On voit tout de suite que la construction de beaux 
écrans sollicite fortement le programmeur qui ne veut 
pas se contenter de coloriage par grandes masses pour 
des applications de jeux. Pour obtenir des effets o- 
bliques, il est nécessaire d'imbriquer plusieurs bou¬ 
cles, et les caractères graphiques qui conditionnent 
le déclenchement sont toujours trop présents. Cepen¬ 
dant il y a là une invitation qui n'est pas déplai¬ 
sante à l'exercice intellectuel. 

On ne peut pas changer la couleur du fond par une 
fonction, mais avec un petit programme. 

10 FOR I = 0 T0 20 
20 PRINT "A" 

30 NEXT I 



Grâce à ce petit programme, l'écran se coloriera en 
rouge. 

Il est possible d'utiliser les couleurs suivantes, 
d'ailleurs jolies et bien saturées : rouge, bleu fon¬ 
cé, vert, beige, bleu clair, magenta, noir, vert fon¬ 
cé, marron et ocre. 

Toutes les couleurs apparaissent sur l'écran au pro¬ 
gramme suivant : 

10 FOR I = 166 T0 191 
20 PRINT CHR$ I 
30 NEXT I 


Cette carte est fragile, les potentiomères se dérè¬ 
glent, et l'imprimante fonctionne mal. 

Son prix est de 390 FF. Il y a un supplément de 190 
FF pour la prise péritel. 

Il est regrettable que le mode d'emploi ne soit pas 
plus détaillé sur les couleurs et possibilités tech¬ 
niques. 

A notre sens cette carte qui ne peut être manipulée 
qu'avec soin est particulièrement recommandée pour 
les défilements d'écran publicitaires et l'enjolive¬ 
ment des programmes d'E A 0 (enseignement assisté par 
ordinateur) applications dans lesquelles son rapport 
qualité/prix est spécialement avantageux. 

Son absence de souplesse s'oppose en revanche à voir 
dans cette extension le moyen de passer à la couleur 
tous azimuts. Les possesseurs de ZX81 ne doivent pas 
se faire d'illusions : ils n'auront pas un ZX Spec- 
trum pour 400 F. 


Carte couleur 

Prix : 390 FF ttc (plus 190 FF ttc de prise 
Péritel) 

Distributeur : Vismo , 68 rue Albert 
75013 PARIS 


.E. Weinstein 
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Blg Bang 


spectromania 


Ecran spectral 


En attendant la couleur (le prochain cadeau d'ORDI-5 
?) quelques dingue^ du graphisme vous donnent ici un 
avant-goût des extraordinaires possibilités du Spec- 
trum en haute définition. N'oubliez pas que le ZX81 
+ l'imprimante est également capable de très belles 
choses : à vous de jouer. 


Montagnes russes 






(M. Willy) 


i 



Génération de formes symétriques pour test 
psychologiques 


(idée de D. Guillermin) 
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Avez-vous remarqué que la largeur du papier d'impri¬ 
mante Sinclair est EXACTEMENT égale à la longueur d' 
une cassette ? Tirez,, vous aussi, parti de cette coïn¬ 
cidence pour normaliser la présentation de vos cas¬ 
settes infai. 

ORDI-5 vous fait cadeau de son programme, inventé 
pour mettre de l'ordre dans les cassettes que vous 
lui envoyez (sécurité dans la manutention et la ré¬ 
expédition) . 

La nouvelle jaquette de la cassette est délimitée par 
des traits pour le découpage et le pliage ; les titres 
sont calibrés automatiquement avec priorité pour le 
champ de gauche, afin de mettre l'accent sur le nom 
de l'auteur du programme, mais vous pouvez inverser 
les priorités en inversant les variables NS et PS. 


W 

* 

* 

* 

« 

* 

* 

* 

* 

* 

TV 

•e■ 

Or 

* 

* 

* 

* 

* 

* 
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****&******£*&****************- 

* 

L I N fl N T Othello 

* 

ï 

SPECTRUM 

Jf 

* 

4 Rue Royale 

75003 PARIS 

FRANCE 

* 

* 

1234567 

* 

* 

ESSAYEUR: 

* 

* 

DATE DE L'ESSAI: 

* 

* 

PROG. PRIS DANS ORDI-5 NO: S 

■fc***************************** 


L I N fi N T Othello 

REMARQUES EUENTUEI_l.ES RU UERSO 


COPYRIGHT ORDI-5 
S Rue Saint Marc 
75002 PARIS 


Exemple de jaquette développée 


| 0 R D I - 5 OTHELLO 



1 REM CLASSEMENT CASSETTES 
a REM - 

3 REM © ORDI-5 ET X.L.B. 

4 REM 

100 REM DONNEES 

101 REM - 

105 INPUT "NOM 7";N$ 

110 INPUT "TITRE DU PROGRRMME 7 

" ; ps 

115 LET P$ = " “+PS 

120 INPUT “MATERIEL 7"; MS 

130 INPUT "ADRESSE:NO ET RUE 7" 

'132 INPUT "CODE ET UILLE 7";US 
134- INPUT "PAYS ?";Z$ 

14.0 INPUT "TELEPHONE 7";TS 
190 RcM 

200 REM CALIBRAGE DOS CASSETTE 

201 REM - 

210 LET L1=LEN NS 

215 LET L2=LEN PS 
220 LET A=3: LET B=3 
230 GO SUB 300 


24.0 LET B=B-1 
250 LET A =A -1 
260 LET B=B-1 
270 LET A=A-1 


GO SUB 303 
GO SUB 300 
GO SUB 300 

_. ..... GO SUB 300 

280 PRINT FLASH 1;“REUOIR LE TI 
fRE": INPUT "NOUUEAU TITRE 7";PS 
290 GO TO 215 
300 LET L=A*L1+B*L2+A 
310 IF L<=28 THEN GO TO 700 
320 RETURN 
4-00 FOR 1 = 1 TO L1 
410 LET X=A*3*CI-1)+8*B+1S 
417 LET L5=N$: GO SUB 500 
420 NEXT I 

425 LET C=CA*L1+AJ*8 
430 FOR 1=1 TO L2 
440 LET X=C+B*(1-1)*8+24 
445 LET L $ =P $ : GO SUB 500 
450 NEXT I 
490 RETURN 

12! 5I M IMPRES. GROSSES LETTRES 
505 REM - 

IIS S:P?S 0 r* CODE 

525 LET D=PEEK CO+K) 

530 FOR U=0 TO 5 
Ü® LET Dl=D/2-INT (D/2) 

550 IF DI< >0 THEN GO SUB 600 
560 LET D=INT (D/2) 

570 NEXT J 
580 NEXT K 
590 RETURN 
500 REM 

605 LET H=Y-K*3 

607 FOR E=0 TO B-l 

608 LET F=X-B*U+E 

^BIO^PLOT F,H+2: PLOT F,H+1: PLO 

620 NEXT E 
630 RETURN 
690 REM 

700 REM ENJOLIUAGE 
705 REM - 

710 LET X $ = "**************. = »»» » 
*************" 

715 PRINT XS 
720 PLOT OUER 1;0,175: 

t 0 

730 FOR 1=1 TO 21 
740 PRINT AT 1,0; "*■ 

1,31;"*" 

750 NEXT I 

800 LET Y = 150 : GO SUB 400 
805 PRINT AT 7,13;MS 
310 PRINT AT 10,3;A$ 

315 PRINT AT 11,3;US 
320 PRINT AT 12,3;ZS 
325 PRINT AT 14,3;TS 
S40 PRINT AT 17,3; "ESSAYEUR : " 
^SSÇ^PRINT AT 19;3;"DATE DE L'ES 

«T 21,3; "PROG. PRIS D 

370 COPY 
380 CLS 
331 

390 PRINT XS 
900 PLOT 0,167- 
910 LET Y=i60: 

= 20 PLOT 0,134 - npoi 
_340 PRINT AT 9 ; 7; "COPYrI^HT ORO 

m|^|" PRINT RT Rue. saint 

■34.6 PRINT RT 11.9: ”75002 pop tcl»» 

NTulLLES N AU n UE§sè ; '" REHflROUES EVE 

970 COPY 0 ' 7<3: DRRW 255 '® 


DRAU 255 


PRINT AT 


DRAU 255,0 
GO SUB 400 
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vos fichiers en 64 K 


Les mémoires de 64 K se multiplient chez nos lecteurs. 
Avec une pareille quantité de mémoire, les programmes 
se sophistiquent de plus en plus : ainsi celui de Phi¬ 
lippe Adet qui s'est inspiré du fichier de X. Linant 
de Bellefonds (La pratique du ZX81). 

Ce programme prévoit une possibilité de chaînage par 
transfert de données au-dessus de RAMTOP, ce qui per¬ 
met d'exploiter les données dans un second programme 
(graphisme haute résolution sur imprimante par exem¬ 
ple). Nous publierons dans le prochain numéro le pro¬ 
gramme de chaînage le plus beau qui nous sera parvenu. 


a) Tableau mensuel 

Ce tableau récapitule les dépenses mensuelles par 
rubriques et indique le pourcentage que représente 
une rubrique par rapport aux recettes du ménage. 

En bas du tableau les résultats mensuels sont re¬ 
groupés sous forme de : 

- Recettes 

- Dépenses 

- Epargne 

On peut également voir comment sopt réparties les 
dépenses et l'épargne en pourcentage. 


MISE EN OEUVRE DU PROGRAMME 


Le programme est composé de deux parties : 

1ère partie : 

C'est le fichier qui permet d'enregistrer les dépen¬ 
ses mensuelles et de les ventiler dans une quinzaine 
de rubriques. 

2ème partie : 

C'est l'exploitation des données enregistrées. 



b) Histogramme mensuel 

En abscisse sont représentés les ï mois de l'année. 
En ordonnée sont représentées les sommes multi¬ 
pliées par 1000. 

Pour un mois le premier "bâton" représente les re¬ 
cettes et le deuxième les dépenses. 

c) Cette option permet de diriger vers le program¬ 
me de chaînage éventuel. 

Avant d'entrer le programme faire POKE 16389,200. 


1 REM GESTION PERSONNELLE 
P REM — — — — — — — — — — — — — — 

3 REM (OPH.flDET ET ORDI-S 

4 REM 

70 DIM R(150) 

80 DIM R(12) 

90 DIM D(12) 

100 DIM K(150) 

120 DIM O$i(lS0,2) 

200 LET E|«fiNREGISTREMENT" 

il m I Isrnrnm ■.. 

24.0 LET US="UOULEZ~UOUS: " 

230 LET Y5 = *'CODE 0$ (N, 1) *256+CQ 
DE O*(N,2) M 
500 CLS 

505 PRINT RT 5,5 ; "tgaEEBSBESaHÏ 


506 PRINT 

510 PRINT M ES> CREER UN ")F$ 

515 PRINT 

520 PRINT RECHERCHER UN " ; E$ 

525 PRINT _ 

530 PRINT "0>MODIFIER LE ";F$ 
535 PRINT 

54-0 PRINT "@>UISURLISER LE M jF$ 
54-1 PRINT 

54-5 PRINT "I3>SAUUER LE FICHIER" 
54-6 PRINT _ 

54-7 PRINT "H>EXPLOITER LES RESU 
LTRTS" 

550 INPUT R 
555 CLS 

560 GOSUB (ft*1000) 

570 CLS 
560 GOTO 24-0 
600 PRINT 

610 PRINT “LOGEMENT =01“,"RL 

IMENTRTION=02“ . .. 

620 PRINT “HRBILLEMENT =03","EQ 
UIPEMENT =04." 

6435HPRINT “UOITURES =05", “IM 

POTS =06" 

660 PRINT "TELEPHONE =07","LO 
ISIRS =08" 

680 PRINT "URCRNCES =09","DI 

UERS =15" 

700 PRINT "NOURRICE =11","SR 

NTE =16" , 

710 PRINT "SRliRIRE P =12" , "SR 
LRIRE B =13" 

*730 PRINT "REGULARISATION=14-" 
740 RETURN 

t 900 IF B=1 THEN LET H$="LOGEMEN 

605 IF B=2 THEN LET H$="ALIMENT 
RT ION" 

010 IF B =3 THEN LET H $=>" HABILLE 
MENT" 

615 IF B =4 THEN LET H$="EGUXPEM 
5NT" 

620 IF B=5 THEN LET H*="UOITURE 

325 IF B=6 THEN LET H$="IMPOTS" 
830 IF B=7 THEN LET H$="TELEPHO 
NE" 

835 IF B=8 THEN LET H$="LOISIRS 


=01" 

, "AL 

= 03 " 

, "EQ 

=05" 

, " IM 

=07" 

, "LO 

=09" 

, "DI 

= 11" 

, "SR 

= 12" 

, "SR 
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3=0 THEN LET H$ = 
3=11 THEN LET HS 


= 14- THEN LET H$="REGULR 
=15 THEN LET H$="DIUERS 


ï( EX:DECEMBRE 19 


84-5 IF B =11 THEN LET H4="NOURRI 
CE" 

850 IF B =12 THEN LET H$ = "SflLRIR 
E P" 

855 IF B = 13 THEN LET H$ = ,, SRLRIR 
E B" 

660 IF B = 14- THEN LET H$="REGULA 
RISRTION" 

865 IF B = 15 THEN LET H4=“DIUERS 

870 IF B=16 THEN LET H$= M SRNTE" 
880 RETURN 

999 REH *********************** 
1000 REM ROUTINE CRERTION 

| g alita ^ ^ 

1013 PRINT 

1014- PRINT "RPPUYER SUR R POUR E 
NREGISTRER DES DONNEES" 

1015 PRUSE 4-E4- 

1016 IF INKEY4 •< > ”R" THEN GOTO 5© 

0 

1019 CLS 

1020 LET P0=1 
104-0 LET P2 = l 
1090 CLS 

1180 PRINT , ’E5Sa3ia(EX: DECEMBRE 19 
82 = 1262) ** 

1110 INPUT R 

1120 print "Haas" 

1125 PRINT "UOULE2 UOUS LE TRBLE 
RU DES CODES" 

1126 INPUT RS 

1127 IF R $ = "O" THEN GOSUB 600 
1130 INPUT B 

114-0 LET K(P0)=A+B*lE-2 
1150 PRINT K(P0> 

1160 PRINT Q4 
1170 INPUT R $ 

1180 IF R$="N" THEN GOTO 1100 
1250 CLS 

1580 PRINT ' ’ ' ' 

1510 INPUT R 

1520 LET O$CP0)=CHR4 INT (P2/256 

) +CHR$ C P2—(INT CP2/256) *256) ) 

1530 LET N4CP2)=CHR$ R 

154-0 LET P3=P2+A+1 

1550 FOR 1=1 TO R 

1560 PRINT "COUT: ";I 

1570 INPUT B4 

1575 PRINT B$ 

1580 LET N$ CP3 TO P3+LEN B$-1)=B 
S . 

1590 LET P3=P3+LEN B4 
1600 LET N4CP2+I)=CHR$ LEN B4 
1610 NEXT I 
1620 PRINT 0$ 

1630 INPUT R 4 

164-0 IF R«$ = "N" THEN GOTO 1500 
1650 

1710 INPUT G$ 

1720 PRINT C$ 

1730 PRINT Q4 
174-0 INPUT R S 

1750 IF R$="N" THEN GOTO 1700 

1760 LET N$CP2 TO P2+LEN C$)=C$ 

1762 LET F0=P0+1 

1765 LET F2 =P2 +LEN C4 + 1 

1600 PRINT "FIN DES ";E$;”S?" 

1810 INPUT R $ 

1820 IF RS=”0" THEN GOTO 1900 
1830 LET P0=P0+1 
1650 LET P2=P2+LEN CS+1 
1860 CLS 

1870 PRINT E$;" NO:";P0 

1880 GOTO 1100 
1900 REM 
1925 PRINT 
1930 RETURN 

1999 REM ********************** 

2000 REM RECHERCHE 

2001 REM ********************** 
204-0 PRINT "ENTREZ LR DRTE: 1262 = 
DEC 02" 

2050 INPUT M 

2060 PRINT "ENTREZ LE CODE:” 

2065 GOSUB 600 

2070 INPUT B 

2080 LET D=M+B*lE-2 

2210 FOR 1 = 1 TO F0 — 1 

222© IF K\‘I)=D THEN GOSUB 3000 

2230 NEXT I 

2235 CLS 

224-0 PRINT T $ 

224-5 PRINT 
2250 GOTO 505 

2999 REM *********************** 

3000 REM EDITION 

3001 REM *********************** 
3005 LET P0=I 

3020 CLS 

3030 PRINT ES;" NO: "} P0 

3031 IF 0=4- THEN LPRINT E$;" NO: 

" j P0 

304-0 PRINT "SSSaS" 

3050 LET R$=STR$ KCP0) 

3055 IF LEN R4=6 THEN LET R4="0" 
+ R4 

3060 PRINT R$(l TO 2);"/";fl$C3 T 
O 4-) 

3065 LET B=UAL Cfl$(6 TO 7)) 

3066 GOSUB 800 

3070 PRINT "ISSMl” 

307 1 IF R =4- THEN LPRINT ' ' tg»Tsb1=jS 


3072 IF R =4- THEN LPRINT R$(l TO 
3);"/"; A4 (3 to 4-) j" ";r$(6 

to 7);" ";H$ 

3085 PRINT B_ 

3090 PRINT 
3100 PRINT HS 

3200 PRINT "ëMBfflgfea" „ U JI1 U , 

■3201 IF R =4- THEN LPRINT " EM513T=E3 " 
3205BLET Y =CODE 04(P0,1)*256+COD 
5 05 (P0,2> 

3210 LET X=Y +CODE N4 (Y) +1 
3220 FOR U=1 TO CODE N4CY) 

3230 LET U=CODE N4(Y+J) 

324-0 PRINT N$ CX TO X+U-l);" "J 
324.1 IF R =4- THEN LPRINT N$ CX TO 
x+U-l);" 

3250 LET X=X+U 
3260 NEXT J 

3265 PRINT 

3266 IF R =4- THEN LPRINT 

3269 PRINT ‘ 1 ' ' __, 

3271 IF 1=1=4. THEN LPRINT " fcWîiai^iSBa 
fs ÿs ri j 9 r 

3280 LET Y =CODE 0$(P0 + 1,1) *256+C 
ODE 055 CP0 + 1,2) -1 

3235 IF P0+1=F0 THEN LET Y=F2-1 

3290 PRINT N4(X TO Y) 

3291 IF R =4- THEN LPRINT N$ (X TO 
Y) 


5 > EN CLAIR" 
3> EN CODE" 


3295 PRINT 

3296S3IF R =4- THEN LPRINT 
3297- IF R=S THEN GOTO 4-805 

3298 IF R =4- THEN RETURN 

3299 IF fl=0 THEN GOTO 4-770 

3300 PRINT "APPUYEZ SUR (6) POUR 
OBTENIR L ";E$;" SUIURNT" 

3310 PRUSE 4-E4- 

3320 IF INKEY $ ■< > " 6 " THEN GOTO 50 

3325 IF Y =F2 —1 THEN GOTO 3504- 
3330 LET P0=P0+1 
3360 GOTO 3020 
3504- CLS 

3505 print "iaaMg^8aagBaËEEBaBBS^ 

iSJSïâ 

3510 PRINT 
3520 GOTO 505 

3999 REM *********************** 
4.000 REM MODIF 

1001 REM *********************** 
1005 CLS 

1010 PRINT RT S,SjU$ 

4011BPRINT _ 

1015 PRINT ”0>AJÜUTER UN ";E4 

1016 PRINT 

4-017 PRINT "@>EFFACER UN ";E$ 
4-018 PRINT 

4-020 PRINT "ü>MODIFIFIER UN M JE$ 
4-021 PRINT " (RJOUTER UNE SOMME 

R UNE RUBRIQUE)" 

4-030 PRINT 

4-04.0 INPUT R 

4-060 GOSUB (4-000 + 0*100) 

4-080 GOTO 500 
4-10© LET P0 =F0 
4-130 LET P2=F2 
4-150 GOTO 1090 
4180 RETURN 

4-200 PRINT "NO D,";E$j" R EFFACE 
R?" 

1210 PRINT 

4-220 INPUT R 

4-230 PRINT 

1300 LET P0=A 

•1310 FOR I =P0 TO F0-1 

4-315 LET K ( I ) =K ( 1+ 1 ) 

•4-350 NEXT I 
4-360 GOSUB 4-4-10 
4-370 GOTO 4-4-55 

4-999 REM *********************** 

5000 REM UISU 

5001 REM *********************** 

5019 PRINT ; 1 ‘ ’ ' 

3020 PRINT _ 

3021 PRINT "g5>EN CLAIR" 

3022 PRINT "H) EN CODE" 

30g3 PRINT ■•£a> tc-.Bir6gBC6i^raa&ï=iaB9,=i " 
5026 INPUT R 
303© GOSUB 7006 
504.0 SLOU 

5080 GOTO < 5000 + R *100) 

5100 LET P0=X1 
312G GOSUB 3020 
3210 FOR I=X1 TO X2 
3215 CLS 

5216 PRINT "RPPUYER SUR (6) POUR 
OBTENIR L ";E4;" SUIURNT" 
522© PRINT RT 5,0; "ESI «BS 


5290 LET N=I 
5292 LET Yi=URL Y$ 

5294. LET N = I + 1 

3297 LET Y2=URL Y4-1 

5298 IF N =F0 THEN LET Y2=F2-1 

5300 PRINT X;" "; K(I);" "; 

□ S (I) 

5302 PRINT m „ 

5305 PRINT "im> "} N$ (Y’JL TO Y2) 
-5306 PRINT 

5307 PRINT "POINTAGE DEBUT:";Y1 

5308 PRINT "POINTAGE FIN :";Y2- 

5310 IF Y2=F2 THEN GOTO 3504- 
5350 PRUSE 4-E4- 

5360 IF INKEY4 < >"6" THEN GOTO 5© 
0 

3370 NEXT I 
5380 GOTO 500 
54-00 FRST 

54-05 FOR I=X1 TO X2 
34-10 LET P0 = I 
34-15 GOSUB 3020 
54-20 NEXT I 
54-30 SLOU 

34-4.0 GOTO 500 _ 

5000 SRUE "FICHIEH" 

5010 GOTO 200 

3997 REM *********************** 

5998 REM EXPLOITATION RESULTRTS 

5999 REM *********************** 

7000 GOSUB 94-00 

7001 IF R=5 THEN GOSUB 7009 

7002 IF R =1 THEN GOSUB 7006 

7005 GOTO 7025 

7006 PRINT 

7007 PRINT "ENTREZ LE MOIS ET L 

ANNEE R EXRMINER:1282=DEC 19 

32" 

7003 INPUT M 

7009 FRST 

7010 CLS 

7011 FOR 1=1 TO F0-1 

7012HIF INT K(I)=M THEN GOTO 701 

7013 NEXT I 
7014- GOTO 7O05 

7016 LET X1=I 

7017 FOR I=X1 TO F0-1 

7020 IF INT K(X) <>M THEN GOTO 70 

7021 NEXT I 

7022 LET X2 = I-1 

7023 IF I=F0—1 THEN LET X2 = I 
7024- RETURN 

7025 LET C$=STR4 (M) 

7026 IF LEN C4=3 THEN LET C$="0" 
+ C $ 

7026 LET X=UAL <C$(1 TO 2)) 

7030 IF MOINT (KCF0-1)) THEN GO 
TO 7096 

7033 FOR I=X1 TO X2 
7034- LET R ( I) =0 

7035 LET Y=CODE 0$(I,1)*256+CODE 
04(1,2) 

7037 LET XI=Y +CODE N$(Y) +1 
704-0 FOR Ü = 1 TO CODE N$ (Y) 

7050 LET U=CODE N$ (Y+ü) 

7060 LET S=URL (N$ (XI TO XI+U-1) 

7070 LET A(I)=R(I)+S 

7071 LET XI=XI+U 

7072 NEXT ü 

7073 NEXT I 
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"ENTRER LE COMMENTAI* 


44-10 LET N=P0 
4420 LET YlsURL Y$ 

•4425 PRINT "POSITION DE ";E$;": 

4430 LET N=N + 1 
■4432 LET Y2=URL Y* 

4435 IF N=F0 THEN LET Y2=F2 
4440 LET 2 =Y 2-Y1 
4445 PRINT "LONGUEUR: "; Z 
4450 RETURN 
4455 FflST 

4460 FOR I=Y1 TO F2-Z 
44Q0 LET NS(I)=Nî(I+2) 

4500 NEXT I 
4520 LET F2=F2—Z 

4609 FOR I=P0+1 TO F0-1 

4610 IF IsFfl THEN GOTO 4680 
4620 LET N = I 

4640 LET E =URL Y$-Z 

4660 LET 0$(I~1)=CHR$ CINT (E/25 

5))+CHR$ (E-(256*INT (E/256))î 

4670 NEXT I 

4680 LET F0=F0-1 

4885 SLOU 

4690 PRINT 

4700 GOTO 500 

4770 PRINT 

4771 PRINT " RÜOUTER UNE SOMM 

5 DANS UNE AUTRE RUBRIQUE (O/N)? 

4775 INPUT R $ 

4776 CLS 

4777 LET R =8 

4780 IF R$="0" THEN GOTO 2060 
•4785 GOTO 500 

4790 REM *********************** 

4791 REM MODIFIER UN ENREGISTREE! 
ENT 

4792 REM *********************** 

4800 CLS 

4801 PRINT "POUR AJOUTER UNE SON 
ME R UN ";E$ 

4802 LET fl=8 

4803 PRINT 

4804 GOTO 2040 

4005 PRINT "ENTRER LR SOMME fl AJ¬ 
OUTER " 

4806 INPUT 1$ 

4807 PRINT 1$ 

480© PRINT 
4810 PRINT 
E R AJOUTER" 

4815 INPUT G$ 

4816 LET G$=G$+" " 

4817 PRINT G$ 

4818 PRINT 

4819 PRINT Q$ 

4820 INPUT R$ 

4821 IF R«S="N" THEN GOTO 4602 

4823 FflST 

4824 LET N=P0 
4825(SLET YlsURL Y$ 

4830 LET N=N + 1 

4835 LET Y2=URL Y$ 

4836 IF N=F0 THEN LET Y2=F2-1 
4838 LET Z=LEN I$+LEN G$ + l 
4840 IF N =F0 THEN GOTO 4891 
4345 LET T =F2 — 1 

4850 LET N* (T + Z) =NSl (T) 

4855 IF T=Y2 THEN GOTO 4867 

4860 LET T =T-1 

4855 GOTO 4850 

4870 FOR U=P0+1 TO F0-1 

4875 LET N=U 

4880 LET E=UAL Y$+Z 

4885 LET 0$(U)*CHR$ (INT (E/256) 

) +CHR$ CE — (256*INT (E/256))) 

4890 NEXT U 

4891 LET F2=F2+Z 

4895 LET X0=Y1+CODE NDi (Yl) +1 

4896 LET X=X0 
- J = 1 TO CODE N$ (Yl) 

U=CODE N$(Y1+J) 

X=X+U 
1905 NEXT J 

4907 LET X$=N$CX0 TO X-l) 

4906 LET U$=N$(X TO Y2-1) 

4909 LET N$(Y1)=CHR$ (CODE N» (Y5. 

4910 LET N*(X0)=CHR$ (LEN I») * 
4915 LET X$=X$+I$+U$+G$ 

4920 FOR 1=1 TO LEN X$ 

4925 LET N$ (X0+I) =X$ ( I) 

4927 NEXT I 

4928 SLOU 

4929 CLS 

4930 PRINT U$; " A JOUTER UNE RUTR 
E.SOMME DANS CETTE RUBRIQUE (O/N 
* " 

4931 PRINT 

4932 INPUT R$ 

4935 IF R$="0" 

4970 LET fl =0 
4975 SLOU 
4980 GOTO 2210 


4397 FOR 
489© LET 
4900 LET 


THEN GOTO 4805 


7078 LET R (X) =0 

7079 LET D CX) =0 
7000 FOR I=X1 TO X2 

7002 XF K(I)=M+.12 OR K(I)=H+.13 
OR K(I)=M +.14 THEN GOTO 7090 
7084 LET D (X) =R CI) +D (X) 

7086 NEXT I 
7088 GOTO 7096 

7090 LET R(X)=R(X)+fl(I) 

7091 GOTO 7086 

7095 NEXT I 

7096 GOSUB (7000+R*100) 

7097 GOTO 500 

7100 PRINT RT 1,4; " wa=fc§mtfrtf=ïig^aa 
®J";C$(1 TO 2) ; M /"jC$(3 TO 4) 

7116 PRINT 

16; "HaaSDHi" ; TRB 26 ; 

7120 FOR I=X1 TO X2 

7121 LET fl$=STR$ K CI) 

7122 IF LEN R$=6 THEN LET R$="0" 

7123 LET B=URL (R®(6 TO 7)) 

7124 GOSUB 800 

7125 PRINT fl$C8 TO 7);" ";H$; 

7126 LET ia>=STR$ (INT CRtI))) 

7127 LET Ul = ".. .." 

(1 TO 19—LEN H$-LEN 1$) 

7131 LET U=fl(I) 

7132 LET C=24 

7133 GOSUB 9500 

7134 IF K(I) =M + >12 OR K(I)=M+.13 
OR KCI)=M+.14 THEN GOTO 7150 

7135 LET U=(fl(I)/R(X))*100 
7137 LET C=31 

71380LET U$="" 

7139 GOSUB 9500 

7140 NEXT I 
7145 GOTO 7400 
7150 PRINT " 

7160 GOTO 7140 


7400 LET U$ = "" . .-i 

7405 PRINT RT 19,0; "IS=ftq=<lEBÉ=y> J 

7406 LET U=RCX) 

7407 LET C=18 

7408 GOSUB 9500 

7409 PRINT _ ... 

7410 print "sassaESa»; 

7411 LET U=D(X) 

7412 LET C=18 

7413 GOSUB 9500 

7414 LET U=D(X)*100/R(X) 

7415 LET C=31 

7416 GOSUB 9500 

7420 PRINT , ^ .... 

7421 LET UoR(X)—D(X) 

7AP9 LET C»18 
7423BPRINT 

7424 GOSUB 9500 _ 

7425 LET U = (R (X) -D(X) ) *10O/RCX) 

7426 LET C = 31 

7427 GOSUB 9500 

7428 SLOU 

liât XF U INKEY*<>"Z“ THEN RETURN 
7440 COPY 
7450 RETURN 
7500 SLOU 

7505 PRINT RT 0,0; "MSEESI BBSBjg 
ilJsfc)gBJ=aàd^^a^M ,, 19“ ; CS (3 Tü 4) 


7520 FOR 1=2 TO 20 STEP 2 

?iil lp T lVl§ THEN LET d«l 
7530 PRINT RT X,J;20-1;U$ 

7540 NEXT I 

7550HPRINT RT 21,2;"J FM RM 
JJ RS ON D" 

7560 LET 1=4 _ „^ 

7562 FOR X=1 TO 12 

7570 LET S = R(X) _ 

7572 IF S=0 THEN GOTO 7580 
7575 GOSUB 9700 
7580 LET 1=1+2 

7590 LET S = DtX) „ _„ 

7592 IF S =0 THEN GOTO 7600 

7595 GOSUB 9700 

7600 LET 1=1+3 

7602 IF I>63 THEN GOTO 7610 

7605 NEXT X 

7620 IF U INKÉY*0"Z" THEN RETURN 

7640 RETURN 

3000 FflST _ _ _ 

3005 FOR 1=0 TO 1643 

3010BPOKE (I+PEEK 16388 +256*PEEK 
16389).PEEK (I+PEEK 1B400+2E6*P 
EEK 16401) 

3020 NEXT I 

3030 SLOU 

3031 CLS 

3032 PRINT 

3033 PRINT 
3037 PRINT 
<NEULINE>" 

3039 PRINT 

3040 PRINT 


’EErrAPER S ou S puis 

'S9PLRCER LR CASSETTE 


- «CAMEMBERT > ** 
-<BUDGET»" 


REEMBOBINER SI 


DESIREE" 

3041 PRINT 

3042 PRINT 
•3045 PRINT 
3050 PRINT 
NECESSAIRE" 

3052 PRINT 
3055 PRINT "ESSRPPUYER SUR <PLRY> 

3057 P RINT 

3060 PRINT "ËEIflPPUYER SUR <NEULX 
3062 PRINT RT 14,0; "SaSI^SEîMa^î 
30S3MPRINT 

8064 PRINT "S- «CAMEMBERT >" 

3065 PRINT / „ 

3066 PRINT "H-<BUDGET»" 

8068 INPUT R$ 

3070 PRUSE 4E4 , 

■3072 IF R$="B" THEN GOTO 8090 
3080 LORD "CRMEMBERfiS 
3090 LORD "BUDGET" 

9400 PRINT RT 3,5; "(fi 


: RESULT 


3 > CHANGEMENT DE CASS 


*prog g®ga=sa" 

(TABLEAU-HISTOG 


(DEPENSES MENSU 


9405 PRINT 
9410 PRINT 
ATS MENSUELS 
3420 PRINT 
3430 PRINT 
E5—DEPENSES 
3435 PRINT 
9440 PRINT 
ETTE" 

3450 PRINT 
3453 PRINT 

9454 PRINT 
RflMME)" 

9455 PRINT 

9456 PRINT 

9457 PRINT 
ELLES)" 

3458 INPUT fl 

9460 IF R=7 THEN GOTO 8000 
9462 LET M=INT (K(F0-1)î 
9470 R ET U R N 

3500 REM FORMATAGE DES CHIFFRES 
9510 LET XL=INT (ABS U+.005)*SGN 

9520 LET XP=INT ((ABS (U-XL)*100 
) +.5) 

9530 LET ZîsSTRS XP „ . , âi ^„ _ 

9540 LET Z$=STR$ XL+"«"+( 0 +Z$) 

9540BLET Z$=STR$ XL + "."+ ( "0"+Z$) 
(LEN Z$ TO ) 

3545 LET Z$=U$+Z$ 

9550 PRINT TRB (C-LEM Z$ + l);Z$; 
3560 RETURN 

9700 LET Q=( (S/1000) +.25) /.5 

9710 FOR J=2 TO Q+l 

9720 PLOT I,ü+1 

3730 NEXT J 

974© RETURN 


-Philippe Adet 
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utilitaire 


Francis 





Basic 




Pas de doute, la belle liste en français publiée dans 
le numéro 3 d'ORDI-5 a fait de l'effet et plusieurs 
lecteurs se sont essayés à simuler par programme la 
francisation qu'effectuait la ROM modifiée que nous 
avions présentée. 


Voici une solution élégante et assez ramassée que 
nous avons retenue : le programme se présente sous 
forme de routine placée aux lignes 9000 et suivantes 
et l'appel de cette routine par GOTO 9000 traduit au¬ 
tomatiquement l'ensemble des lignes placées avant 

9000. _ 
Naturellement, les programmes traduits ne peuvent e- 
tre exécutés à la différence du dispositif de M2C2 
FRANCE. 


La liste des mots-clés est contenue dans la ligne 

9100. 


ÎO SOIT R &=" 

20 POUR B-32 R 


clvj ruvn U— n 1- PhR 1 
30 RFFICHE RU 20..0.;RS(B R 3Sf • 
R,—tï- fq B —3.) 

35 31 FRRPPES<>"" RLOR5 OR RU 
100 

4.0 REPETE B 
50 UR RU 28 
100 HALTE 
3©00 REM 


10 LET RS="L, 

1 step -a 

30 PRINT RT 20/0;RSfB TO 32)+fi 

* ( 35 T IF B INKEV$< ) " " THEN GOTO 10® 
40 NEXT B 
50 GOTO 20 
100 STOP 
9000 REM 


. Exemple. 


9302 

■3010 

9020 

903® 

9035 

903S 

9037 

OR 


(N+-X> 
R) R.; 


■ET N=16503 
IFT fi=256*PEEK LU-PEEK 
PRINT TRB 4 - (LEN STRt 
LET N=N+4 

LET PM=PEEK N „_„ 

XF PM=118 THEN GOTO 9050 
XF PN=64 OR PN=65 OR PN=19o 
PN = 198 OR PM >208 THEM GOTO 3 


100 

9038 PRINT CHR* PEEK N.; 

9040 LET N = NFl 

9042 IF PEEK N=126 THEN LET N=N + 
6 

9044 GOTO 9035 
3050 PRINT 
9055 LET N=N+1 

9©60 GOTO 9010 _ _ 

91O0 LET B$=”RLEFRRPPE$RU LONG R 
CN MEM UTL SESÎ CRRÎ NEG OU ET fi 
LORS R,PRR IMPRIME LISTE HRLTE L 
ENT RRPIDE UIDE GLISSE POUR UR R 
U FRIS DEMRNDE RRPPEL UOIR SOIT 
REPETE METS RFFICHE TRRCE EXQ RR 
MGE HEL SI PRGE ENLEUE PURGE RET 
OUR COPIE ** 

9150 DIM RS(42..93 

='**064001003" 

RS (2)="065004010 
RS (3)="193011013“ 

RS (4) =" 198014-818" 

RS (5) ="208019022" 

RS (8)= **2X1023026" 

RS(7)="212027030" 
fiSf8) ="21383X035" 

RS 13} =**21403604©" 

~ -- "215041044" 

"217044047" 
"218047050” 
**222050055" 

** 223056058" 
"2240580B2" 
“225062070" 
"226070076** 
**2270.76082" 

. _ "228082087" 

RS{20}="223087034" 

RS (21) ="236094099" 

...- “231099185" 

"235106111" 
"236111117" 
"237117122" 
“238122130" 

239130137" 
"240137142" 

„„=“241142147" 

RS (30) =**243147154" 

R$ 131} = **244X54153" 

RS 132} = **245159167." 

_ -- **246167173-'* 

** 247173177" 
"248177183" 
"2491S31S7" 
”250187190" 

___ -."251190195" 

RS 133} ="252195202" 

RS 140) =**253202208" 

RS t41) ="254208215" 

RS (42) =“255215221" 

C=0 

X=1 TO 42 

IF -URL R $ ( X .< 1 TO 3) =PEEK N 
GOTO 9500 
NEXT X 

IF C=0 THEN GOTO 9038 
IF C=1 THEN GOTO 9040 
REH 

PRINT BS (URL RS ( X.. 4 TO 5) 
RS IX:» 7 TO 9V ) 


9160 
9162 
3164 
9166 
9 168 
917© 
9172 
9174 
9176 
9176 
3180 
9182 
9184 
3186 
9188 
9190 
9192 
9194 
9196 
9200 
92©2 
9204 
9206 
9208 
9212 
9214 

9216 

9217 

9218 
9220 
9222 
9224 
9226 
3228 
9230 
9232 
3234 

9236 

9237 

9238 
9240 
9242 
9400 
9402 
9405 
THEN 
9407 
9410 
9412 

9500 

9501 
O URL 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

FOR 


RS t 3.0) 
RS (11) 
RS(12) 
RS(13) 
RS(14) 
RS(15) 
RS(16) 
RS(17) 
RS(18) 
fiS(19) 


RS(22)' 
RS(23) 
RS(24) 
RS(25) 
RS(26) 
RS(27) 
RS £28) 
RS(29) 


RS(33) 
RS(34) 
RS (35) 
RS(36) 
RS(37) 
RS(38) 


3502 

9505 


LET C=1 
GOTO 94X0 


_ Programme 


Marc Petremann 
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essais 




Programmes à l'essai 


VU-FILE TRES VITE 


VU-FILE 
PSION 
156 F 


Ce logiciel de fichier se signale par deux qualités 
essentielles : 

- sa grande rapidité 

- le nombre élevé de modalités d'accès. 

On compte jusqu'à 13 routines possibles (charger la 
fiche, envoyer la copie de la fiche à l'imprimante, 
introduire une nouvelle fiche, informer sur tous les 
paramétrés du dossier, classer un dossier, choisir un 
sous programme, etc...). 

Quelles que soient semble-t-il la longueur du fichier 
et la masse des données entrées la rapidité n'est ja¬ 
mais mise en défaut, cela provient du recours massif 
au langage machine. 

Autre particularité intéressante : au moment de la 
création, l’utilisateur ne définit pas ses paramètres 
dans l'abstrait, mais en se servant des différents 
curseurs pour, en quelque sorte, "matérialiser” la 
disposition et le contenu d'une fiche de base. Cette 
approche très concrète est particulièrement bien ve¬ 
nue et évite la lourdeur des menus de constitution 
du genre : "combien voulez-vous d'articles, de quelle 
longueur, etc." 

Ce logiciel efficace est à recommander tout spéciale¬ 
ment aux gestionnaires obsédés par la vitesse. Sa mi¬ 
se en oeuvre régulière oblige néanmoins, et c'est 
probablement son seul défaut, à se familiariser par¬ 
faitement avec les commandes, de touches qui pilotent 
son fonctionnement : le recours au langage machine 
implique en effet une certaine rigidité dans l'inter¬ 
activité qui rend les opérations de saisie et de re¬ 
cherche malaisée dans les débuts. 

fL'une des grandes facilités des programmes de fichier 
en BASIC, qui est la contrepartie de leur lenteur, 
consiste à pouvoir retourner facilement au menu prin¬ 
cipal par une BREAK ainsi que de pouvoir aisément cor¬ 
riger chaque entrée). 

Cette réalisation est nettement supérieure aux pre¬ 
miers programmes de fichiers et de gestion proposés 
dans les débuts pour accompagner.le ZX81 ; il s'agit 
d'ailleurs d'un logiciel PSION. 

Enfin une^observation de portée limitée : il serait 
tout de même bien agréable que les "franciseurs" de 
programmes sachent un peu mieux l'orthographe ! 


UN VU-CALC BEAU A VOIR 


VU-CALC 
PSION 
156 F 


02 03 



Le principe des programmes VISICALC etc. est mainte¬ 
nant bien connu : ces logiciels permettent de traiter 
organiquement" des tableaux de données qu'elles soi¬ 
ent chiffrées ou littérales (titres, etc.). 

A chacune des cases du tableau peut être associée une 
tormule qui correspond à des calculs faits sur d'au¬ 
tres cases du tableau : on peut exécuter ainsi des 
totaux partiels, des calculs de moyenne, de pourcen¬ 
tage, etc... et cela sur de grands ensembles sans ris¬ 
ques d'erreur (tableau de 26 colonnes par 35 rangées! 
c 'est-a-dire beaucoup plus grand qu'il ne serait pos¬ 
sible de le visualiser sur un document écrit). 

Il peut y avoir d'autres utilisations que celles de 
gestion : on peut traiter des tableaux matriciels de 
façon savante : par exemple tableaux de production 
interindustriels, etc. 

Le logiciel VU-CALC est une belle réalisation pour ZX 
B 1 , rapide et souple à la fois, ce qui n'est pas for¬ 
cement compatible^: grâce aux curseurs on peut se pro¬ 
mener avec agilité d'une case à l'autre ; le nombre 
des entrées^ est peu élevé et donc les lettres-clé cor¬ 
respondant à chacune sont simples à retenir pour l'u¬ 
tilisateur et faciles à mettre en oeuvre. 

Nous avons éprouvé beaucoup de plaisir à utiliser ce 
programme qui est particulièrement spectaculaire et 
propre à convaincre le non-initié (on en a toujours 
autour de soi) des capacités . inhérentes aux ZX 81 . 


UN REVERSI PRESQUE RENVERSANT 


OTHELLO 
DIRECO 
Env. 90 F 


COPYRIGHT DIRECO INTERNRTIONRL 
■'JIU. 1 


08 

09 


COUPS 


HS 

E3 


COUP PRET. 
l'ÎEÜLINE. . . 


5 
? 

6 
5 
4- 
3 
2 
1 



H . . . 


OB CDEFGH 


8 

7 

6 

5 

4- 

3 

2 

1 


Il s’agit d’une cassette de commercialisation déjà 
relativement ancienne mais toujours performante qui 
propose le jeu d’Othello en deux versions : une ver- 
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sion BASIC et une version en langage machine : la ver¬ 
sion en langage machine, très élaborée comporte 9 ni¬ 
veaux et, honnêtement, la difficulté commence dès le 
premier niveau et monte assez vite. 

La popularité de ce jeu est immense, ce qui se com¬ 
prend bien : les néophytes se laissent rapidement ga¬ 
gner par l'intérêt du jeu riche en rebondissement et 
renversements et ce genre de cassette aide considéra¬ 
blement à former l'instinct du débutant sur les prin¬ 
cipales bêtises à éviter. 

On peut regretter la relative abstraction du damier, 
mais la rapidité de réaction de l'ordinateur est re¬ 
marquable. Il s'agit là d'une bonne cassette de l'a¬ 
vis de tous ceux qui l'ont essayée. 



Cassette toute récente celle-là pour mettre à . la por¬ 
tée du ZX81 un jeu vidéo qui fait fureur dans les ca¬ 
fés des grands boulevards : il s'agit de conduire une 
malheureuse grenouille à travers la circulation démen¬ 
tielle d'une autoroute pour lui permettre de plonger 
dans la rivière qui borde cette autoroute (où d'ail¬ 
leurs des dangers d'une autre nature l'attendent : 
crocodiles, etc.). 


Difficile,, presque impossible d'atteindre l'autre cô¬ 
té de la rivière avec ce jeu entièrement en langage 
machine, qui va très vite et dont le graphisme corres¬ 
pond à ce que l'on peut tirer de mieux du ZX81. 

Il s'agit certes là d'une application dont on se las¬ 
se relativement vite, mais incontestablement très a- 
musante. 

L'ENIGME DU SPHIN-ZX 


"KRAKIT" 

ARCTIC COMPUTING 
Env. 150 F 


Une idée particulièrement originale est à la base de 
cette cassette : il s'agit en fait d'un concours ou¬ 
vert à tous ses acquéreurs et qui fonctionne sur le 
principe suivant : il faut découvrir une vingtaine 
d'énigmes pour fournir trois réponses par énigmes : 
un pays, une ville, un chiffre. Le premier possesseur 
de ZX (81 ou Spectrum) à avoir correctement répondu 
gagne largement de quoi s'offrir un ordinateur de la 
classe professionnelle. 

Les enigmes sont très difficiles (à en juger par l'e¬ 
xemple donné dans le logiciel d'entraînement) et font 
appel à toutes les connaissances culturelles et scien¬ 
tifiques de "l'honnête homme du XXème siècle" : on ne 
peut espérer répondre à toutes les énigmes que dans 
le cadre d'un club ou d'un rallye. 

Autre difficulté : ce jeu ayant été lancé sur une di¬ 
mension internationale, il est en anglais. Nous suggé¬ 
rons donc d'envisager l'achat de cette cassette moins 
avec l'appât du gain que pour faire de sérieux progrès 
en anglais littéraire. 

_Henri ROBINET 


1 o ■ H 

logiciel 


Un ZX AZERTY 

en vaut deux 



Comment donner au système ZX + imprimante la souples¬ 
se d'une machine à écrire munie de multiples fonctions 
d'édition et de touches à répétition ? 

En mode direct, c'est-à-dire en utilisant l'instruc- 
tion"LPRINT", même en mode FAST, on se rend vite com¬ 
pte de la difficulté d'écrire un texte de plusieurs 
lignes. 

Une autre possibilité est de rédiger un programme qui, 
à chaque fois que l'on presse une touche, l'imprime 
sur papier (en fait toutes les 32 lettres). 

Nous vous proposons ici un programme plus complexe 
qui facilite l'édition des textes (insertion, suppres¬ 
sion...) et qui réagit très vite. 

Le programme est rédigé en partie en langage machine 


et se situe dans une instruction REM en ligne 1. Il 
est appelé à partir du BASIC à la ligne 8010. 

Entrez et sauvegardez le programme en Langage Machine,, 
puis la partie en BASIC. Exécutez RUN, et si vous n' 
avez pas commis de faute de frappe, vous devez aper¬ 
cevoir en haut à gauche de l'écran un "curseur" cli¬ 
gnotant.' A présent, votre ZX est une machine à écrire. 

Chaque caractère correspond à une touche du clavier, 
sauf quelques modifications (pour cela, consultez le 
schéma du clavier). La touche NEW-LINE provoque le 
re'tour à la ligne du curseur. Pour déplacer le cur¬ 
seur sur 1'é.cran, utilisez les touches 5, 6, 7 et 8 
en mode SHIFT. 
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LE TRAITEMENT DE TEXTE ZX (EN AZERTY S'IL VOUS PLAIT 


Pour obtenir un clavier AZERTY il faut modifier la 
réaction de certaines touches en changeant la ligne 
2 REM de la façon suivante : remplacer le caractère 
QWERTY indésirable par son correspondant AZERTY : 
ainsi le code de Q est 54 alors le 54ème caractère 
de la ligne 2 REM sera A, de même le 60ème un 2 (au 
lieu d'un W) etc... (la transposition ne concerne qu' 
une demi-douzaine de caractères. 

LES SUPER-FONCTIONS 


de seconde il s'affiche à l'écran (les dix registres 
peuvent être stockés sur cassette !). 

- COPY : cette instruction n'est pas directement ac¬ 
cessible. Il faut d'abord revenir au BASIC. Pour 
cela, faite "sortir" le curseur de l'écran en pres¬ 
sant NEW-LINE jusqu'à ce qu'il disparaisse. Ensuite 
pressez "Z" pour copier le contenu de l'écran sur 
papier, "C" pour revenir au mode "traitement de tex¬ 
te" sans effacer l'écran ni les registres ou SHIFT 
A pour arrêter le programme. Dans ce cas-là, vous 
pouvez sauvegarder le programme avec les dix regis¬ 
tres. Pour relancer un programme contenant les re¬ 
gistres en mémoire, faites GOTO 8000. 


Quelques fonctions utiles - que ne possèdent pas les 

machines à écrire - sont directement accessibles du 

clavier à tout instant : 

- CLS : effacement complet de l'écran avec retour du 
curseur en haut à gauche (touche SHIFT NEW-LINE). 

- HOME : retour du curseur en haut à gauche sans ef¬ 
facer l'écra (touche SHIFT SPACE). 

- GRAPHIC : permet d'écrire en vidéo inversée (touche 
SHIFT 9). Pour vous signaler que vous êtes.en mode 
GRAPHIC, le premier caractère de la première ligne 
est "inversé". 

- INSER : insertion d'un espace à la place du curseur 
en décalant ce qui suit vers la droite (touche SHIFT 
0 ). 

- DELET : suppression du caractère sur lequel se trou¬ 
ve le curseur, en décalant ce qui suit vers la gau¬ 
che (touche 0). 

- SCROLL : déplace tout le texte à partir de la ligne 
sur laquelle se trouve le curseur vers le bas, en 
insérant une ligne vide (touche 3) ou vers le haut, 
en supprimant une ligne (touche 4). 

- SAVE : permet de sauvegarder jusqu'à 10 pages d'é¬ 
cran (exemple : lettre type,...) (touche SHIFT 49. 

On vous demandera de presser la touche correspon¬ 
dant au n° de registre dans lequel vous désirez 
stocker l'écran (ou plutôt le texte) 

- LOAD : permet de ressortir un texte contenu dans 
de 10 registres (touche SHIFT 3)- Il suffit alors 
de presser la touche correspondant au registre dans 
lequel se trouve le texte pour qu'en une fraction 


Par exemple, écrivez une ligne. Appuyez sur SHIFT 4. 
En haut à gauche s'inscrit le message suivant : "QUEL 
REGISTRE ?". Pressez la touche 2. Effacez l'écran 
(touche SHIFT NEW-LINE) puis transférez le contenu 
du registre 2 à l'écran : appuyez sur SHIFT 3 puis 2. 
Le texte initial apparaît comme par enchantement. 


DEMONTAGE DU PROGRAMME 


Les indications qui suivent ne sont nullement néces¬ 
saires à l'utilisation du logiciel mais peuvent être 

précieuses à tous ceux qui envisageraient d'améliorer 

son fonctionnement. 

La partie BASIC d'abord : 

- 7990 création d'une chaîne de 10 sur 791 dans la¬ 
quelle on sauvegardera les textes. 

- 7999 initialisation de la variable système DF-CC 
sur le premier caractère de l'écran. 

- 8000 on accède au jeu de caractères 11914. 

- 8001 on charge à l'adresse 16417, zéro, c'est-à-di¬ 
re que l'on travaille en mode normal (noir sur blanc) 
128 signifie blanc sur noir, c'est-à-dire en mode 
vidéo inverse. 

- 8003 initialisation de la variable système DEST au 
premier élément de la chaîne Bé. 

- 8010 appel du programme en Langage Machine. 

- 8011 - 8017 "scanning clavier" pour savoir si l'or¬ 
dinateur doit reCOPYer le contenu de l'écran, C0N- 
Tinuer ou STOPper. 


RETURN RS*“?^RND THEN . EJRND)*“*XC 
03 / CLS EfiRNDT» : ) NEW 7 FRST 

SOSUB iS FOR SGN * .■ GOSUBJ3TRN E 
: SUD 777 LPHINT LET XNPUT B77 =C L 
XST 7LN SSS* BETURN 3BSN 7PÏ RETUR 
H £RSN 7INKEVS RETURN TO RSN FPI 
BETURN THEN RSN CPI RETURN ?flSN 
/PI RETURN ?R5N STEP INKEYS RET 
URN 0RSN ”"INKEY$ RETURN CRSN El 
NKEYS RETURN CRSN BINKEYS RETURN 
!S2- R Sl URN 7C7 RETURN 4.RSN @PIS 
STEP PIC- ;VUSRNDdNOT E:RND?7S: 

L I°T GOSUB C(RNDE:RND GOSUB 
7SQR E : RND . ? " 72I4 CLS T'PBlRNDEflRN 
076 : RNC.-7SÏRNDE: RND76: RND ;1 e? RNDFê 
: RNDÈrB: RND?EIMKEY$E (RND) S GOS'J 
—’ ? for E ; R WD GOSUB -?S m 7U INKEY 
■ P.ND ) 5 ô : RND7UINKEY $E£RND ) 5 ; G 
OSUB ? : RND GOSUB ?S a “?UINKEY$E : RN 
0)4- GOSUB ?6:RND?UINKEY$E(RNDF 
GOSUB ? :RND FRST GOSUB ? FfiST AT 
LPRIHT - F? "7054- NEXT 7UINKEYSE ( 
RNDF GOSUB 7:RNDSTR4 GOSUB ? FRS 
T RT LPRXNT - F77 M 7B4- NEXT 7UINK 
cV'SE: RND7 SRUE 6: RND7EINKEY9LN E 
* l 7EXNKEY $U5RND XNPUT 0M5RNDE£RND 
7XNKEY$LN SRNDLN &RNDFRSTGOSUB 
,-,2S RND <STR jp S NEUf 7“ : GOSUB IS L 

l?ï§Mr\7 n S e?tL,f*~ GOSUB !S?EINKEY$LN 
ÜÜRNDLN &RND FRST GOSUB ^ÊRND <STR 
S 5 NEU ?» : GOSUB isGNLPRINT “ 

i GOSUB G3CEINKEYSE: RNDF SRUE FR 
àT 1 i 6 nÀ T HS S .yi-2.î RND FOR GOSUB ce 


■JRUE 7 FRST > S J FRST GOSUB "c”(RM 
b. FOR GOSUB CKti LPRINT LPRINT 7 
FRST RT LPRINT SGN GOSUB 
0E(RNDFFQ ✓ PRINT UX 

2 REH 7777Ç7777?"?*: ? () > <= + - 
,.ClaCCS6789RBCDEFQHIUKLMNOPG 
RSTUÛÙXYZT?7TCC7?7?T-TT?7?'?'?TTT7C 

~77777777777777777777777777777< i c 

77777777777777777777777777777777 
77777777777777777777777777777777 
A 2 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 

?£4. ay?77?'?'?77777777T? 

????????? 

_^,lé’ R ÊM‘ QUEL REGI 

»TRE? 

4 REM 

5 REM (OS. CRR IN IC ET ORDI-5 

6 REM-—- 

•7310 GOSUB 9980 

7911 SLOU 

7990 DIM Bip ( 10 , 791) 

7999 CLS 

3001 POKE 164-17,0 
3003 LET B!£ Cl) =B$ ( 1 ) 

IFUSR 16574- THEN 
3011 LET R$=INKEY$ 


3015 IF R$s M Z M THEN COPY 

3016 IF R$ = "C’‘ THEN GOTO 7999 

3017 IF fl$<>" STOP " THEN GOTO S 
011 

3999 STOP 

•3980 LET Rî$ = , *.CDBB0a444D6:114GAae4 
•3CDBD077EFE1DDRB240FE263803C3824 
3 DE 1S2R124-01117033DC81918FB2R0C4- 
023010E0011E64-3E5EDB0EBD1010E00E 
DE»0C92R0E405E7EF5E5CDBB02444DE1F% 
1EE8077S11428F073GDBD077EFE79GR1 
242FE1FGA6942FE0CCASS" 

9981 REM .. . 

9 98225LET AS =RS + "41rEDFCA2B42FEDE 
CR4 R4-2FE74CR1S427EF E76GA0142FE77 
CAE041FE1CCAC041FE70CRR041FE71CA 
S041FE722857FE73284AFE20CAR24221 
E0425F1600194-E3R214-081D72R0E407E 
PE762S02180623220E4-018F0ED5B104.0 
2A0E40EDS2D02A0E407E57EE " 

9983 REM . ... 

2984 LET R$=R$ + ,, 3001581B770B78B! 
20FB72C3BE402R0C402322CE40C3BE40 
2R0E4023220E4013BF2R0E402B220E40 
7EFE76280218B12B220E40C32R412R10 
40112100EDS2EB2R0E40ED523803G33A 
412R0E4011210019220E40C33R412R0C 
<*-011210019ED5B0E40ED52Q8 '' 

9985 REM ..... 

R $=R$ + ,, 03C33R412R0E4011 
2000ED52220E40C33A412R10402BED5E 
0E40ESED52E5C1E116002B7EFE762802 
72570B7SB120F3C33R412R10402BED5B 
0E40D5ED52E5C1E116002B237EFE7628 
0272570B78B120F3C33R412R0E40237E 
FE76280218F8220E40C32R41- 

9987 REM ... 

2988 LET R à =fl$ + "CD2A0RC32R413R21 
40EE803221402R0C40237EEE8077C32R 
41CDR940CD8240E5ED5B0C4013D521ES 
oSSi?™SSIS B0E1D101i703EDB0C 52R41 
£?9i£2£RS 24 - 0E5ED5B0 C4013D521E643 
010E00EDB0D1E1011703EDBOC32R412R 
0E402B7EFE76280218F3E511" 

9989 REM ..t , 

3390 LET R$=RÛi + ,, 220.ai9EDSB1040ÊB 

c511S100ED52DlEDB8Ei06202336001Q 
£ê9? aR4 - 12R0E4 - 02B7EfrE76 280218F823 
E511210019E5EDSB10401BEBED52300S 
E 1 E 1 032R ^1 E 5C1E1D1E D B02R10402B25 
/EFE76CR2R41360018F53C3D" 

9991 PRINT "UEUILLEZ PATIENTER'* 

9992 LET U=16514 

9993 FOR 1=1 TO LEN R$-l STEP 2 

9994 IF 1=31 THEN FRST 

S£§ 5 «59S E ,V'i£ ODE R * -ae> *i6+c 

ODE R$ (1+1)-28 

9996 LET U=J+1 

9997 NEXT I 
999e CLERR 
9999 RETURN 
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EN LANGAGE MACHINE, LE PRINCIPE DE BASE 


Codes de la ligne 2 REM 


On charge HL avec le contenu de DF-CC (position du 
curseur), et A avec le code du caractère sur lequel 
se trouve le curseur. On exécute XOR 128 qui inverse 
l'état du bit 7 du registre A (c'est-à-dire change en 
noir sur blanc ou blanc sur noir) et le charge à l'a¬ 
dresse pointée par le curseur jusqu'à ce qu'une tou¬ 
che soit enfoncée (tantôt noir sur blanc, tantôt blanc 
sur noir). On cherche ensuite si le code correspondant 
à la touche enfoncée représente une instruction. Si 
oui, alors on l'exécute. Si non, on charge HL avec 
17120 (adresse du premier caractère de la ligne 2 REM 
... On ajoute à HL le code de la touche enfoncée et 
on charge le registre A avec la valeur de l'adresse 
pointée par HL, puis on appelle la routine en mémoire 
morte RST 10. Si à l'adresse pointée par DF-CC il y 
a un caractère NEW-LINE, alors on incrémente DF-CC. 

Si DF-CC est égale à VARS (on est sorti de l'écran) 
on revient au BASIC. Sinon, on recommence les mêmes 
opérations. 

Codes de la ligne 1 REM 


17120, 
17129, 
17138, 
171*7, 
17156, 
17165, 
17174., 
17183, 
17192, 
17201, 
17210, 
17219, 
17228, 
17237, 
17246, 
17255, 
17264, 
17273, 
17282, 
17291, 
17300, 


0,15. 

15.15 
18,19 

27.15 
36,37 
45,46 
54,55 

63.15 

15.15 
15,15 
15,15 
15,15 
15,15 
1,15. 
15,15 
15,15 
15,15 
15,15 
15,15 
15,15 
15,15 


15.15.15, 
,11,15,13 
, 20 , 21,22 
,29,30,15 
,54,39,40 
,47,48,49 
,56,57,58 
, 15,15,15 
, 15,15.15 
,15,15,15 
,15,15,15 
,15,15,15 
,15,15,15 

15.15.15. 
15,15,15 
15,15,15 
15,15,15 
15,15,15 
15,15;15 
15,15,15 
15,15,15 


15,15, 
,14,15 
23,24 
15,33 
,41,42 
,50,51 
,59,60 
, 15,15 
,15,15 
15,15 
15,15 
,15,15 
,15,15 
15,15, 
15,15 
,15,15 
,15,15 
,15,15 
,15,15 
,15,15 
,15,15 


15,15 
,16,17 
,25,26 
,34,35 
,43,44 
,52,53 
,61,62 
,15,15 
, 15,15 
, 15,15 
,15,15 
,15,15 
,15,15 
15,15 
,15,15 
, 15,15 
15,15 
,15,15 
,15,13 
,15,15 
,15,15 


17309.15.15.15.31.15.15.15.15.15 

17313.15.15.15.15.15.15.15.15.15 

17327.15.15.15.15.15.15.15.15 15 
17336,12,32,2,132,134,28,15,15,7 

17345.3.137.8.5.138.15.15.15.15 

17354.15.15.15.15.15.15.15.15.15 

17363.15.15.15.15.15.15.15.15.15 

17372.15.15.15.15 


16514.205.187.2.68.77.81.20.202 

18822.130.64.203.189.7.126.254 
16529,29,218,130,64,254,38,56,3 

16537.195.130.64.222.27.42.18.64 
16545,17,23,3,61,200,25,24,251 
16553,42,12,64,35,1,14,0,17,230 
16562,67,229,237,176,235,209,1 
16569,14,0,237,176,201,42,14,64 
16577,94,126,245,229,205,187! 2 

16584.68.77.225.241.238.128.119 
16591,81,20,40,240,115,205,189,7 

15599.126.254.121.202.18.66.254 

16606.31.202.105.66.254.12.202 
16613,88,65,254,223,202,43,66 
16S20,254,222,202,74,66,254,116 

16627.202.24.66.126.254.118.202 
16634,1,66,254,119,202,224,65 
16641,254,28,202,192,65,254,112 
16648,202,160,65,254,113,202,128 
16655,65,254,114,40,87,254,115 

18662.40.74.254.32.202.162.66.33 

16670,224,66,95,22,0,25,78,58,33 

16679.64.129.215.42.14.64.126 

16686.254.118.40.2.24.6.35.34.14 

16695.64.24.240.237.91.16.64.42 

16703.14.64.237.82.208.42.14.64 

16711.126.87.238.128.1.88.27.119 
16719,11,120,177,32,251,114,135 

15726.190.64.42.12.64.35.34.14 
16734,64,195,190,64,42,14,64,35 

16742.34.14.64.24.191.42.14.64 
16750,43,34,14,64,126,254,118,40 

16758.2.24.177.43.34.14.64.195 
16766,42,65,42,16,64,17,33,0,237 
16775,32,235,42,14,64,£37,32,56 

16783.3.195.58.65.42.14.64.17.33 
16792,0,25,34,14,64,195,58,65,42 
16801,12,64,17,33,0,25,237,91,14 

16810.64.237.82.56.3.195.58.65 
16818,42,14,64,17,32,0,237,82,34 

16827.14.64.195.50.65.42.16.64 
16335,43,237,91,14,64,229,237,82 

16843,229,193,225,22,0,43,126 

16850.254.118.40.2.114.87.11.120 

16858.177.32.243.195.58.65.42.16 
16866,64,43,237,91,14,64,213,237 
16874,82,229,193,225,22,0,43,35 
16882,126,254,118,40,2,114,87,11 

16890.120.177.32.243.195.58.65 
16897,42,14,64,35,126,254,118,4© 

16905.2.24.248.34.14.64.195.42 
16913,65,205,42,10,195,42,65,58 

16921.33.64.238.128.50.33.64.42 
16929,12,64,35,126,238,128,119 

16936.195.42.65.205.169.64.205 

16943.130.64.229.237.91.12.64.19 
16951,213,33,230,67,1,14,0,237 

16959.176.225.209.1.23.3.237.176 

16967.195.42.65.205.169.64.205 

16974.130.64.229.237.91.12.64.19 
16982,213,33,230,67,1,14,0,237 

16990.176.209.225.1.23.3.237.176 

16998.195.42.65.42.14.64.43.126 

17006.254.118.40.2.24.243.229.17 
17014,34,0,25,237,91,16,64,235 

17022.237.82.40.2.24.4.225.195 

17030.42.65.229.193.42.16.64.43 
17038,229,17,33,0,237,32,209,237 
17046,184,225,6,32,35,54,0,16 

17054.251.195.42.65.42.14.64.43 
17062,126,254,118,40,2,24!24é,35 
17070,229,17,33,0,25,229,237,91 
17078,16,64,27,235,237,82,48,5 
X70S6,225,225,195,42,65,229,193 
17093,225,209,237,176,42,16,64 
17100,43,43,126,254,118,202,42 
17107,65,54,0,24,245,60,51 


VOICI LE MECANISME DES DIVERSES FONCTIONS DE 
TRAITEMENT 


DEPLACEMENT DU CURSEUR : On modifie la valeur conte¬ 
nue par DF-CC suivant la direction choisie. On véri¬ 
fie ensuite si le curseur n'est pas en fin de ligne. 

GRAPHIC : On exécute XOR 128 sur la valeur contenue 
dans 1.6417 et le 1er caractère de l'écran. 

CLS ; On appelle la routine de la ROM située à l'a¬ 
dresse 0A2A. 

INSER : On charge HL avec DF-CC, D avec 0 et BC avec 
le nombre de caractères entre le curseur et le bas de 
l'écran (=VARS moins DF-CC). On charge A avec la va¬ 
leur contenue dans HL (après avoir incrémente HL) et 
on charge à cette même adresse la valeur contenue dans 
D. On charge ensuite D avec l'ancienne valeur contenue 
à l'adresse pointée par HL (=A). On décrémente BC et 
s'il est supérieur à zéro, on recommence. Cela revient 
à faire un LDIR "manuel" puisque l'on veut éviter la 
destruction des caractères NEW-LINE en fin de chaque 
ligne. 

DELET : De même manière que INSER mais on charge HL 
avec la valeur contenue par VARS moins 1, et on le 
décrémente au lieu de 1'incrémenter. 

SCROLL : On charge HL avec la valeur contenue dans 
DF-CC. On décrémente HL jusqu'à ce que l'on recontre 
un caractère de fin de ligne. On charge BC avec la 
valeur contenue dans VARS moins HL. Pour le Scroll 
vers le naut on échange DE et HL et on charge HL avec 
DE+33- On exécute ensuite LDIR. Pour le Scroll vers 
le bas on charge DE avec la valeur contenue dans VARS 
moins 1, HL avec DE-33 et on exécute LDDR. 

SAVE : On charge BC avec le nombre de caractères con¬ 
tenus sur un écran moins 1 (NEW-LINE = 118 inclus) 
c'est-à-dire 791, DE avec DEST + 791 * (code "inkeyd" 
-28) et HL avec D-FILE +1. On exécute LDIR. 

LOAD : On charge les registres avec les mêmes valeurs 
que pour SAVE mais on échange HL et DE avant de fai¬ 
re un LDIR. 


Stéphane Crainic 
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avec 


Fast Load 


N'ayez pas honte des 250-300 bauds de vitesse de char¬ 
gement pour vos programmes ZX81 ; sachez que la plu¬ 
part des ordinateurs de sa catégorie ne font guère 
mieux. Evidemment, cette vitesse, qui équivaut en gros 
à la transmission de 1K octet par minute, rend fasti¬ 
dieux les LOAD et les SAVE de programmes importants. 

Il est possible d'accélérer considérablement ces trans¬ 
missions en passant par des routines de langage machi¬ 
ne plus rapides que les routines LOAD et SAVE de la 
ROM du ZX81 : ce sont les fameuses cassettes FAST LOAD 
M0NIT0R de SINCLAIR et Q-SAVE de Personal Software 
Services (Coventry). Ces transmissions rapides impli¬ 
quent de bonnes cassettes, des lecteurs de cassette 
bien entretenus et au défilement régulier. Le passa¬ 
ge par une interface additionnelle qui régularise les 
signaux en provenance du lecteur de cassette peut se 
révéler un investissement.utile. 

Autour de ces questions nous vous proposons quelques 
idées et compte-rendus d'expériences : Jacques BAR- 
BANCEï vous explique dans ce numéro comment transfor¬ 
mer un FAST LOAD M0NIT0R de 16K en FLM fonctionnant 
sur 6HK. . 

"G.PEDROLI a trouvé le moyen d'ajouter un FLM de base 
quelques routines additionnelles bien utiles et Fred¬ 
die BLIN exprime sa satisfaction après l'essai du <3- 
SAVE (matériel et logiciel) 


FLM sur 64 K 


Le FAST LOAD de SINCLAIR apporte, pour un prix modi¬ 
que (82 F) et une grande facilité d'emploi, un remède 
inespéré à la lenteur mise par le ZX à effectuer les 
opérations de transfert sur cassette. 

Je l'utilise intensivement depuis deux mois, et je 
dois reconnaître que sa fiabilité est très supérieure 
à ce à quoi je m'attendais. 

Cependant, l'exploitation de toutes les possibilités 
du système nécessite quelques manipulations et même, 
pour les adeptes de la mémoire 64 K, la transformation 
du programme. 

VITESSE DE CROISIERE 4000 BAUDS ET PLUS CONTRE 300 ! 


La vitesse de transfert peut être sélectionnée, avant 
chaque enregistrement, dans une gamme allant de 3.600 
a 5-600 bauds. Au moment de la lecture, le programme 
lira de lui-même la vitesse à adopter dans le code 
précédant le programme. 

Pour éviter toute surprise, il m'est apparu préféra¬ 
ble, à l'expérience de me contenter de la vitesse de 
4.000 bauds, à laquelle je n'ai jamais eu d'incident. 
Cependant, il faut noter que l'emploi du Fast Load 
rend l'enregistrement plus sensible à une éventuelle 
boucle de feed-back qui, si elle est faible, peut res¬ 
ter ignorée par une sauvegarde en mode lent. 

D'autre part, disposant d'un magnétophone (GRAETZ) à 
contrôle de niveau commutable, j'ai observé quelques 
incidents d'enregistrement en mode automatique, alors 
que le réglage manuel ne m'a jamais occasionné de sur¬ 
prises. 


Je me suis vite heurté, dans mon désir de rendre sys¬ 
tématique l'emploi du Fast Load dont il est très dif¬ 
ficile de se passer lorsqu'on y a goûté, à deux obs¬ 
tacles de taille : 

- tout d'abord, certains logiciels du commerce, pro¬ 
tégés contre la copie, ne peuvent, par voie de consé¬ 
quence, être "repiqués" en mode rapide ; 

- ensuite, l'implantation du Fast Load dans les adres¬ 
ses .30370 à 32768 le rend inutilisable dans les appli¬ 
cations exigeant plus de 16 K de M.E.V. 

Ce sont quelques éléments de solütion à ces deux pro¬ 
blèmes que je voudrais vous proposer. 

ADAPTATION DU FAST LOAD A 64 K OCTETS 


L'acquisition d'une extension mémoire à 64 K;octets 
(MEM0PAK 64 K de MEM0TECH en l'occurence) donne une 
nouvelle dimension à un système ZX81. En effet, non 
seulement l'espace BASIC s'en trouve considérablement 
étendu, mais encore le programmeur dispose, entre les 
octets 8192 et 16383, de 8 K.octets utilisables pour 
des programmes en langage machine, à l'abri des effets 
de "NEW" . 

Mais cet avantage, considérable en théorie, se trouve 
le plus souvent privé d'effet par le fait que les lo¬ 
giciels utilitaires vendus dans le commerce sont con¬ 
çus pour s'implanter sur des mémoires 16 E, générale¬ 
ment en haut de mémoire avec modification de RAMT0P. 

Il faut donc, si on veut les utiliser, renoncer au 
64 K de mémoire, alors que le programme utilitaire 
serait si bien dans cette zone préservée, entre la 
ROM et les variables-système. 

Or, parmi les utilitaires du commerce, celui dont 
l'emploi s'impose le plus à l'utilisateur d'un ZX é- 
quipé de 64 K est certainement le Fast Load ou un é- 
quivalent, permettant de porter à quelques 4.000 bauds 
la vitesse de transfert sur cassette. Songez en effet 
que le chargement d'un programme doté d'un fichier 
important utilisant la quasi-totalité de la mémoire 
mettra, à 300 bauds, plus de 20 minutes. Et ces pro¬ 
grammes sont précisément de ceux que l'on réenregistre 
chaque fois après avoir travaillé dessus ! 

C'est ce qui m'a incité à entreprendre la modification 
du "Fast Load" de Sinclair, qui occupe normalement 
2.400 octets, soit les adresses 30370 à 32767, pour 
le transplanter juste au-dessous des variables systè¬ 
me, soit de 13984 à 16383 - 

LA METHODE 


Cette démarche pouvant intéresser beaucoup de program¬ 
meurs désireux d'adapter d'autres logiciels conçus 
pour 16 K, on peut s'arrêter quelques instants sur la 
méthode utilisée pour réaliser cette modification. 
L'outil principal est, bien entendu, le désassembleur 
(ZX DB de BUG BYTE), compagnon indispensable, avec 
son frère le ZX AS, de tout programmeur désireux de 
s'attaquer à la programmation en assembleur. 

En effet, pour rendre un programme de cette importan¬ 
ce exécutable à une autre adresse, il faut en modifier 
toutes les références à des adresses exprimées en va¬ 
leur absolue. Cependant, vouloir analyser et compren- 
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dre tout un programme aussi long et complexe que ce¬ 
lui-ci demande du temps et de l'expérience, dans une 
mesure qui n'est pas à la portée de tous. 

a) Le principe : Le plus simple est donc, après avoir 
chargé le Fast Load, implanté au-delà de RAMTOP, puis 
le ZXDB, qui prend place dans un REM en ligne I, de 
faire désassembler le premier par le second et de re¬ 
lever toutes les valeurs comprises entre 76A2h et 7F 
FFh, figurant comme arguments à la suite d'instructions 
CALL.JP ou LD. Ces valeurs seront ensuite, comme nous 
le verrons, modifiées une à une grâce à un petit pro¬ 
gramme en BASIC. 

b) Les pièges : Cette méthode, efficace en apparence, 
recèle deux sortes de pièges : 

- il n'est d'abord pas certain que la valeur suivant 
une instruction LD, quoique comprise dans la bonne 
fourchette de valeurs, concerne une adresse. Ce sera 
le .cas la plupart du temps, mais en cas de plantage 
il faudra analyser plus avant le programme pour s'as¬ 
surer de l'utilisation qui y est faite du registre 
dans lequel la valeur a été chargée. 

- d'autre part et surtout, il faut se rappeler que 
tout ce qui figure dans un programme ne consiste pas 
forcément en instructions. Presque tous les program¬ 
mes comportent en outre des tableaux, suites d'octets 
dans lesquels le programme puise et stocke des infor¬ 
mations. Or le désassembleur, qui ne peut reconnaître 
un tableau, va tenter de traduire les valeurs qu'il 
contient en instructions, ce qui peut induire le pro¬ 
gramme en erreur. Il faut donc commencer par locali¬ 
ser le ou les tableaux, ce qui se faire, connaissant 
l'un des mots contenus dans le tableau, grâce à la 
fonction "S" du désassembleur-debugger ZX.DB. 

Par exemple, le Fast Load affiche un menu dont les 
termes figurent nécessairement dans un tableau. En 
faisant rechercher par la fonction "S" du ZXDB les 
octets composant par exemple le mot FAST, vous obte¬ 
nez l'adresse de début du tableau que la fonction"A" 
vous affichera en totalité. 

Vous savez donc qu'aucun octet ne doit être modifié 
dans cette zone. Gardez-vous par exemple de croire 
le désassembleur lorsqu'il vous affirme qu'à l'adres¬ 
se 7984 figure l'instruction LD DE ,760E, et de modi¬ 
fier cet argument. En réalité, 7984 se trouve dans le 
tableau "menu" du Fast Load, et 760E n'est que la jux¬ 
taposition de OE et de 76, soit puis NEW LINE". 
Modifiez-le, et vous écraserez un N/L, ce qui provo¬ 
quera le plantage du programme à ce stade de son exé¬ 
cution. 

LA REALISATION 


Nous procéderons en quatre temps : 

- modification "in situ" des adresses contenues dans 
le programme et relevées dans le tableau ci-joint ; 

- inclusion du programme modifié dans une chaîne de 
caractères reconnue par le BASIC ; 

- adjonction d'une routine en langage-machine permet¬ 
tant le transfert du programme contenu dans la chaîne 
à son adresse d'implantation ; 

- mise au point du programme définitif. 


Pour réaliser chacune de ces quatre étapes, nous se¬ 
rons aidés par le court programme suivant, qu'il faut 
maintenant entrer après avoir chargé le "Fast Load". 

a DIM R$ (24.00) 

10 XNPUT 6$ 

1S 5CROLL 
20 PRXNT B* 
as FB5T 
4.0 LET N$ = Bi 
50 GOSUB S00 

la lIt P=PEEK M+256+PEEK (M+l) 
es LET N=P 
90 GOSUB 400 
100 PRINT N*; 

135 SLOU 
140 GOTO S00 
200 LET N=0 

205 FOR X = 1 TO LEN NS , „_ 

210 LET N=N+(CODE NS (X) -28> * 16 * 

SCLEN NS-XJ 
220 NEXT X 
230 RETURN 


400 IF N=>0 THEN GOTO 470 
405 LET 1=1 
410 LET 0=N 
415 LET 0-0/16 

420 IF XNT 0<1 THEN'GOTO 435 
425 LET I = X + 1 
430 GOTO 415 
435 DIM NtX) 

440 FOR X=1 TO X „ , 

445 LET N(X)=INT tN /16 * *•( X-X) ) 

- LET N=N-N(X)*16**(X-X) 

■ — .. CHR$ (N(X)+2B) 


450 


THEN GOTO 10 


452 LET N*(X! 

455 NEXT X 
470 RETURN 
500 XNPUT K* 

510 XF KSO" 

520 LET NcP-16386 
530 POKE M+l,INT INX256) 

540 POKE M,N—256+PEEK tM+11 
550 PRINT r ‘ X" 

560 GOTO 10 
600 FRST 

610 FOR X = 1 TO 2400 
320 POKE PEEK 16400+256+PEEK 
l01+5+X,PEEK (30369)+X 
630 NEXT X 
640 SLOU 

700 FOR X=1 TO 16 
705 XNPUT N 
710 POKE 16513+X..N 
715 PRINT 16513 +X,N 
720 NEXT X 


1°) Modification des adresses : 

Cette phase va être assistée par les lignes 10 à 560 
du programme. L'adresse d'appel est entrée en hexadé¬ 
cimal (BS), puis transformée par GOSUB 200 en décimal; 
la valeur figurant dans le ccuple d'octets correspon¬ 
dant est affichée en hexadécimal (GOSUB 400), puis, 
sur commande de l'utilisateur, décalée de -16386. 

Vous avez entré le programme ? Alors faites RUN, et 
entrez la 1ère adresse de la colonne A. Elle va s'af¬ 
ficher, et inscrire en regard la valeur qui figure 
en colonne B. Vérifiez. 

C'est bien correct 7 Alors, tapez N/L. La valeur est 
cochée d'une crois, ce qui manifeste que le program¬ 
me a effectué sa modification, et l'a donc décalée 
de -16386. 

Ca n'est pas correct ? Vous vous êtes trompé en en¬ 
trant l'adresse d'appel 7 Frappez alors n'importe 
quelle touche, par exemple 0, puis N/L. Ainsir, au¬ 
cune modification n'est effectuée. 

Et ainsi de suite, jusqu'à ce que vous ayez exécuté 
tout le tableau. Faites alors RUBOUT puis STOP. Et 
passez à la phase suivante. 


2°) Inclusion dans la chaîne de caractères : 

Nous tenons notre programme, mais il faut maintenant 
le rendre transportable, en l'insérant dans la chaîne 
AS. Cette phase ne sera guère fatigante, puisque c'est 
le programme qui va l'effectuer, par ses lignes 600 
à 650. 

Chaque octet de programme va être prélevé et transpor¬ 
té dans la chaîne dont l'adresse est obtenue par ré¬ 
férence à la variable-système VARS (16400-16401°. 

Reposez-vous donc jusqu'au compte-rendu 9/650. 

3°) La routine de transfert : 

Figurant dans la chaîne AS, le programme pourra être 
sauvegardé sur cassette. Mais après l'avoir lu, il 
faudra pouvoir l'implanter à sa véritable adresse 
d'exécution. 

C'est une courte routine en assembleur qui s'en char¬ 
gera. Cette routine sera incluse dans un REM en ligne 
I. En voici le contenu 


adr. 

mnémonique 

code déc. 

commentaire 

16514 

LD HL.(16400) 

42 

16 

64 

Pointe HL (origine 

16517 

LD DE.6 

17 

6 

0 

du transfert) sur le 

16520 

ADD HL.DE 

25 



début de la chaîne 

16521 

LD DE.13984 

17 

160 

54 

Pointe DE sur la 
destination 

16524 

LD BC.2400 

1 

96 

9 

Initialise le dé¬ 
compteur d'octets 

16527 

LDIR 

237 

176 


Transfert automatique 

16529 

RET 

201 



Retour au BASIC 


ORDI-5 N° 4 - Juillet 1983 - 37 






Il vous faut donc : 

- créer un REM en ligne 1 et le remplir avec 16 carac¬ 
tères ; 

- appeler la routine de chargement par GOTO 700 ; 

Cette routine va vous aider à "poker" les valeurs dé¬ 
cimales figurant ci-dessus. Vous n'aurez qu'à les en¬ 
trer l'une après l'uatre, et elles vont s'afficher 
en face de l'adresse où le programme va les ranger. 
Vérifiez que le programme a bien forcé le REM qui doit 
maintenant contenir les symboles des valeurs entrées. 

4° ) La mise au point : 

Le programme de service a rempli son oeuvre. Il va 
falloir le détruire impitoyablement, et le remplacer 
par les quelques lignes nécessaires pour faire fonc¬ 
tionner correctement votre nouveau "Fast Load". Seu¬ 
les les lignes 1, contenant le REM, et 2, DIM AS, se¬ 
ront conservées. Eliminez donc les lignes 10 à 720. 
Entrez ensuite : 

10 SAVE "FAST LOAD 64" 

20 RAND USR 16514 
30 P0KE 16388,255 
40 P0KE 16389,255 
50 NEW 



a 

b 

a 

b 

a 

b 

a 

b 

a 

b 

76A 5 

775C 

77E8 

7BCE 

7AC3 

7A02 

7C3C 

7CDD 

7DAC 

7F21 

76AB 

7A7A 

77 FO 

77B4 

7AC6 

7FBF 

7C4B 

7F11 

7DB0 

7F23 

76 CB 

7C22 

77F8 

78CE 

7ACD 

7F35 

7C55 

7F15 

7DB4 

7F25 

76CE 

7C00 

7803 

78CE 

7AD6 

7ADC 

7C58 

7F11 

7DBC 

7F2A 

76D1 

77B5 

7B0B 

77B4 

7AE0 

7BC6 

7C61 

7DC8 

7DC1 

7F28 

76D6 

79E6 

7815 

78CE 

7AE6 

7F3A 

7C64 

7F20 

7DC5 

7DBB 

76DB 

77A4 

781C 

7F2B 

7AF3 

7ADC 

7C68 

7076 

7DC9 

7F1A 

76DE 

76AD 

7825 

79D9 

7AF8 

7BAD 

7C6B 

7F2? 

7DCD 

7F13 

76E1 

7C00 

782A 

77B4 

7AFE 

7BE0 

7C6F 

7DA6 

7DD2 

7CE5 

76E4 

77B5 

7833 

78CE 

7B01 

7F2D 

7C72 

7F2C 

7DE0 

7CED 

76E9 

7C22 

7B3A 

77B5 

7B05 

7F15 

7C76 

7DF9 

7DEB 

7F2D 

76EE 

7AE3 

7840 

7F2C 

7B0D 

7005 

7C79 

7F37 

7DEE 

7F11 

76F3 

7BCB 

7845 

7F37 

7B10 

7F17 

7C7D 

7A7A 

7DF1 

7F15 

76F7 

77B4 

7853 

77B4 

7B16 

7F15 

7C80 

7F2A 

7DF4 

7CC6 

76FA 

770C 

785B 

78CE 

7B1A 

7F11 

7C84 

7DB9 

7 DFD 

7F2C 

76FD 

7C00 

7862 

77B5 

7B1D 

7F19 

7C8C 

7AE8 

7EQ1 

7E6F 

7709 

7S8E 

7866 

78CE 

7B21 

7CED 

7C90 

7CDD 

7E12 

7B4F 

770E 

77B4 

7869 

77B4 

7B25 

7C68 

7CA1 

7F56 

7E15 

7B90 

7711 

7F37 

7872 

77B5 

7B2A 

7BE0 

7CA9 

7C8F 

7E18 

7E6F 

7714 

7F2C 

78A1 

77B5 

7B2D 

7013 

7CAE 

7F56 

7E20 

7E5E 

771B 

77B8 

78AC 

77B5 

7B31 

7F17 

7CB7 

7F65 

7E26 

?E6l 

771E 

78DE 

78B1 

76A2 

7B36 

7F17 

7CC2 

7C8F 

7E2C 

7E6B 

7721 

77B5 

7SC7 

77B5 

7B3A 

7F2D 

7CC7 

7F17 

7E2F 

7E5E 


77B4 

78CB 

79EC 

7B3D 

7CE5 

7CCB 

7F19 

7E35 

7E5E 

773A 

77B8 

78DD 

77B6 

7B42 

7F19 

7CCF 

7F2D 

7E41 

7E6B 

773D 

79EO 

7906 

77B6 

7B46 

7CED 

7CD2 

7CE5 

7E44 

7E5B 

7740 

77B4 

7985 

760E 

7B49 

7F15 

7CD6 

7F19 

7E4D 

7F27 

7715 

77B8 

79C5 

76BA 

7B4C 

7F11 

7CDA 

7CED 

7E50 

7E2A 


78DB 

79C8 

7DF9 

7E50 

7F2B 

7CDE 

7F11 

7E53 

7F37 

774C 

?F37 

7901 

7F2C 

7E56 

7E5E 

7CE7 

7CF6 

7E56 

7F2C 

774 F 

77B4 

7907 

76AD 

7B59 

7B90 

7CEB 

7CF2 

7E59 

7D36 

7751 

77B8 

79DD 

7987 

7B5C 

7F2B 

7CEF 

7CF6 

7E87 

7E72 

7757 

76BA 

79E1 

7E92 

7B63 

7E61 

7D06 

7022 

7E8F 

7E70 

775A 

76A7 

79E7 

7C0Q 

7B69 

7E6B 

7009 

7025 

7E94 

7F33 

7765 

7F2B 

79EA 

7C22 

7B6C 

7E5B 

7D0D 

7D22 

7E98 

7F31 

7769 

77B6 

79F2 

7F37 

7B73 

7A03 

7D14 

7022 

7E9B 

7F2D 

776C 

79E0 

79F5 

7A7A 

7B76 

7FFE 

7017 

7D25 

7E9E 

7F2F 

776F 


79FB 

7F2C 

7B79 

7A06 

7E1B 

7D22 

7EC4 

7F2F 

7774 

77B8 

79FE 

79C7 

7B7C 

7A02 

7D31 

7F1B 

7EC9 

7F2F 

7777 

7BDB 

7A03 

7F2B 

7B7F 

7F8C 

7D34 

7F17 

7ED4 

7F2D 

777A 

775C 

7A18 

7A00 

7B8C 

76CD 

7D37 

7CC6 

7EE2 

7F31 



7A20 

7AFA 

7B91 

7F2B 

7D3A 

7F2D 

7EE6 

7F33 

7782 


7A2B 

7A47 

7B9E 

7E75 

7D41 

7F11 

7EEE 

7F1A 

7785 

78DB 

7A30 

7A02 

7BA9 

7E79 

7D44 

7F15 

7EF2 

7F1A 


7F2C 

7A37 

7A0O 

7BBB 

7F35 

7D48 

7F1C 

7EF6 



77B4 

7A3A 

7A47 

7BC3 

7F4C 

7D4D 

7F21 

7EFA 

7F1A 

7790 

77B8 

7A45 

7BDB 

7BC7 

7BD3 

7D52 

7F28 

7EFF 

7F20 

7793 

?9C4 

7A4E 

7AFA 

7BD0 

7F38 

7D57 

7E92 

7F04 

78E0 

779C 

7F37 

7A7E 

7F37 

7BD4 

7BC6 

7D5A 

7F2B 

7F09 

7F1A 

77A2 

7A7A 

7A82 

7454 

7BD9 

7A7D 

705F 

7F1A 

7F0C 

7D33 

77A7 

7AE3 

7A87 

7F2B 

7BE1 

7F38 

7D67 

7F1A 

7F0F 

7 CDD 

77AB 

7BCB 

7A8A 

7A03 

7BF5 

76EO 

7D6B 

7F1A 

7F49 

7B24 

77AE 

7A7A 

7A90' 

7A06 

7BF8 

76A2 

7D73 

7F IA 

7F4D 

7BC6 

77B2 

7C22 

7A93 

7A2E 

7C0A 

7F35 

7D77 

7F20 

7F54 

7BE0 

77BC 

790C 

7A98 

7A02 

7C0D 

7F13 

7D7B 

7F1C 

7F84 

7E92 

77C7 

78CE 

7A9B 

7F2B 

7C14 

7F11 

7D7F 

7F1C 

7F87 

7F37 


78CE 

7AAE 

7A54 

7C17 

7F15 

7D83 

7F1E 

7F8A 

7D33 

7705 

78CE 

7AB2 

7F8C 

7C1D 

7F2D 

7D92 

7EFD 

7BBE 

7F37 

77DC 

78CE 

7AB5 

7A03 

7C20 

7BCE 

7D9B 

7F20 



77EO 

78CE 

7ABB 

7A06 

7C23 

7CC6 

7DA0 

7F06 



77E4 ■ 

78CE 

7ABE 

7A2E 

7C2A 

7CDD 

7DA7 

7F27 




Chargez maintenant ce programme sur une cassette vier¬ 
ge ou en face de la cassette "Fast Load" Sinclair. 
Attention : si vous voulez pouvoir recopier ultérieu¬ 
rement ce programme, sauvegardez-le en effectuant le 
"SAVE" directement au clavier. Par contre, il est pré¬ 
férable de sauvegarder le programme par un GOTO 10 
sur la cassette de travail que vous utiliserez habi¬ 
tuellement pour charger le "Fast Load". De cette ma¬ 
nière, à l'issue de la lecture, le programme effectue¬ 


ra immédiatement l'initialisation de l'ordinateur à 
64 K octets. 

Le programme "Fast Load" doit désormais être appelé 
par : 

RAND USR 14074 

A cette différence près, il fonctionne exactement 
comme indiqué dans la documentation fournie par Sin¬ 
clair . 


REPIQUAGE DE VOS LOGICIELS (EN TOUT BIEN, TOUT HONNEUR) 


Le possesseur de logiciels du commerce, parfois fort 
longs, qui les utilise souvent, va souhaiter tout na¬ 
turellement les réenregistrer en mode rapide pour son 
usage courant. 

Mais beaucoup de ces programmes sont "piégés" pour en 
interdire la copie. La méthode la plus simple, pour 
un programme écrit entièrement en langage machine et 
qui ne comporte aucun retour au BASIC, consiste à pro¬ 
voquer son lancement automatique après sa lecture. 
L'utilisateur ne peut ainsi jamais l'intercepter, 
puisqu'il ne rend jamais la main au moniteur BASIC. 
Pour déjouer cette ruse, il faut exécuter la routine 
de lecteure depuis une autre routine en assembleur 
qui bloquera ensuite le programme, l'empêchant ainsi 
de se lancer. 

Ceci se fera en appelant la routine "LOAD" à l'adres¬ 
se 839 d, c'est-à-dire après la routine de vérifica¬ 
tion du nom du programme, en ayant auparavant posi-r 
tionné le bit 7 du registre D afin de simuler le suc¬ 
cès de cette vérification. 

Entrez donc ce court programme à l'adresse de votre 
choix, en "pokant" les valeurs décimales ci-dessous : 


CALL é0F23 

205 

35 

15 

passage en mode rapide 

SET 7,D 

203 

250 


test de vérification 

JP 839 

195 

71 

3 

saut à la routine de lecture 


Après avoir entré ce programme, mettez votre magnéto¬ 
phone en lecture du programme que vous voulez inter¬ 
cepter et appelez la routine par un RAND USR... Le 
retour au BASIC interviendra sur un compte-rendu C/0 
et vous n'aurez plus qu'à réenregistrer votre program¬ 
me à la vitesse de votre choix. 


---Jacques Barbancey 

Personnalisez 
votre Fast Load 

Utilisateur assidu du Fast Load Monitor j'ai imaginé 
de lui incorporer d'autres routines en langage machi¬ 
ne de sorte que, après modifications, on obtienne en 
un seul chargement le FLM plus les routines que l'on 
aura écrites. Le chargement étant bien entendu réali¬ 
sé en vitesse rapide. 

Le principe est le suivant : 

- on élargit la zone réservée au FLM en baissant la 
valeur de RAMT0P, pour cela on change les adresses 
de début de stockage et le nombre d'octets à tradui¬ 
re contenus dans les 2 programmes qui permettent de 
réaliser des cassettes rapides de FLM . 

Commençons par le 2ème programme que l'on charge dans 
le ZX. Ce programme quand on le lance se sauve lui- 
même puis il exécute une routine en langage machine 
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qui a pour but de décoder les données (enregistrées 
en grande vitesse) venant de la cassette. Une fois 
cette routine terminée, il va à une routine dans le 
FLM qui initialise RAMTOP et fait un NEW. 

Le 3ème programme contient une routine en langage 
machine qui permet de transférer en grande vitesse 
les données de la mémoire vers la K7. Une fois le 
transfert terminé, on revient sous le contrôle du 
DUMP. 

Dans chacun de ces 2 programmes, on spécifie l'adres¬ 
se de début de zone de stockage et le nombre d'octets 
à transférer. 

Prenons un exemple concret de modification : 

- On veut réserver 162 octets avant le FLM 
(ce nombre est choisi car il permet des calculs fa¬ 
ciles) 

Quand on charge le FLM, il positionne RAMTOP à $76A2 
(30370-162 = 30208 (soit $7600). 

Nous allons donc créer une copie du FLM contenant 
162 octets en plus. Le nouvel enregistrement s'utili¬ 
sera exactement comme les précédents. 

On suit les indications de la notice pour créer une 
K7 rapide du FLM. 

Après le 3) on tape : 


POKE 16517,0 

) adresse de stockage 

POKE 16518,118 

) 118x256+0 =30208 

POKE 16520,145 

) nombre d'octets à traduire 

POKE 16521,9 

) 9x256+145 

Ce dernier nombre est déterminé comme suit : à l'ori¬ 
gine, on transfert 2287 octets ($08EF), dans notre 

exemple, on en 

réserve 162 en plus donc : 


2287 + 162 = 2449 octets = 9 x 256 + 145 


Après cette modification, on reprend la suite des in¬ 
dications de la notice. 

Arrivé au 6 ) on charge le FLM puis on tape P0KE 16388, 

0 ; POKE 16389,118. Cela permet de positionner RAMTOP 
à l'adresse de stockage (Remarque : RAMTOP peut très 
bien être inférieur à l'adresse de stockage). Puis 
NEW. 

En utilisant le DUMP, on inscrit les routines désirées. 
Dans notre exemple, on peut donc écrire à partir de 
$7600. Remarquons que l'on dispose des adresses $7600 
à $76A1 intégralement, ce qui fait bien 162 octets. 

Les données inscrites au-dessus de $766A jusqu'à $76 
Al ne servent plus, cela correspondant à l'ancien em¬ 
placement de la pile du calculateur. 

Puis on modifie les octets correspondant aux adresses 
$7BF8 et $7BF9 en fonction, de la nouvelle valeur de 
RAMTOP. 


en $7BF8 

$00 

en $7BF9 

$76 


On charge maintenant le 3ème programme. Une fois sous 
DUMP, on tape BREAK. On tape ensuite : 

POKE 16515,0 ) adresse du 1 er octet à sauver 

POKE 16516,118 ) 118 x 256 + 0 = 30208 ($7600) 

POKE 16528,146 ) nombre d'octets à transférer + 1 
POKE 16529,9 ) en fait valeur du 2ème programme + 1 

ce qui explique le 146 

puis GOTO 70 qui fait revenir au DUMP et on suit le 
7) de la notice. 

Voici terminée la nouvelle version du FLM. 


_Gilles Pedroli 



Comme tout utilisateur de ZX81, je suis vite devenu 
.réfractaire aux multiples problèmes de lecture et sau¬ 
vetage de programmes sur cassettes. 

N'ayons pas peur des mots : l'interface magnétophone 
du ZX est particulièrement médiocre. 

Alléché par une publicité, je me suis procuré l'in¬ 
terface Q-SAVE que l'on m'a remis en échange d'un 
chèque de 380 F... à ce prix-là j'espérais que. tous 
mes problèmes seraient au moins résolus. Eh bien, je 
n'ai pas été déçu. 

L'ensemble Q-SAVE comprend : 

- un boîtier 

- une cassette 

- un manuel (en anglais naturellement) 

L'INTERFACE 

Le boîtier est un filtre qui régularise les signaux 
en provenance de la cassette : il peut donc être uti¬ 
lisé en permanence (il a grandement simplifié la vie 
d'0RDI-5 pour les cassettes que les lecteurs inventifs 
lui envoient). 

Plat et assez peu encombrant, il est muni de deux in¬ 
terrupteurs, d'un voyant rouge et de quatre prises de 
type jack 3,5 mm. 

Le branchement n'est pas difficile si l'on suit le 
plan du manuel. L'alimentation se connecte sur le fil¬ 
tre et l'un des fils fournis repart de celui-ci vers 
la prise 9V du ZX, via un interrupteur ; un deuxième 
interrupteur sert de bascule entre lecture et enre¬ 
gistrement. Les deux interrupteurs évitent donc de 
fatiguer les jacks du ZX. 

En ce qui concerne l'utilisation il faut régler les 
aigus du magnéto au maximum et pousser le volume jus¬ 
qu'à la limite de l'allumage de la diode du moins jus¬ 
te avant qu'elle ne s'allume moyennant quoi toutes 
nos (vos) cassettes sont passées sans aucune difficul¬ 


té. Toutefois, il faut suivre scrupuleusement les con¬ 
signes (têtes propres, cassettes de qualité correcte). 

LE LOGICIEL 


20 secondes pour 16K et 2 minutes 20 pour 64K... le 
rêve, mais après du travail : je dois avouer que le 
début est pénible, il faut plusieurs heures pour se 
familiariser vraiment avec le Q-SAVE. 

On charge le logiciel comme d'habitude en mémoire 
puis on le sauve sur cassette vierge par un PRINT USR; 
on le fait relire par un autre PRINT USR en essayant 
tous les volumes et toutes les tonalités jusqu'à ce 
qu'apparaisse le 0 sur l'écran. Heureusement que ce 
réglage peut être fait une fois pour toutes car c'est 
épuisant pour les nerfs. 

Une fois le bon réglage obtenu, on recharge le Q-SAVE 
puis tout de suite après on peut traiter un autre lo¬ 
giciel ; tous les essais ont été concluants : un fi¬ 
chier de 64K est passé effectivement en un peu plus 
de 2 minutes. 

Au total le logiciel est très performant mais la mise 
en train peut être pénible. Quelques détails intéres¬ 
sants : on peut donner des' titres aux programmes, pla¬ 
cer le logiciel à un autre endroit si besoin est ; par 
contre on doit toujours recharger le Q-SAVE avant tou¬ 
te opération ce qui fait perdre 1 à 2 minutes et est 
assez contraignant. 

C'est un système un peu cher, dont la notice gagnerait 
à être en français mais on n'est pas déçu par ses per¬ 
formances d'ensemble. Au bout de 2 mois d'utilisation 
nous n'avons encore rencontré aucun problème pour ce 
dispositif qui trouve son plein emploi pour les pro¬ 
grammes supérieurs à 10K. 

. . ..: Freddie Blin 
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technique 



Les deux premiers tronçons de la routine d'affichage 
principale du ZX81 ont été démontés dans le précédent 
numéro ; voici maintenant la troisième partie de cet¬ 
te routine. 


633 

2A,OC,40 

RAP3 LD HL,(D-FILE) 

1 6 T 

636 

CB, FC 

SET 7,H 

:His=1 

8 T 

638 

CD,92,02 

CALL VIERGE 

: 658 d 

17T 

641 

ED, 5F 

LD, A,R 

: tempo 

9T 

643 

01,01,19 

LD BC,1901h 


10T 

646 

3E,F5 

LD A,F5 

:A=245d(-11 ) 

7T 

648 

CD,B5 ,02 

CALL CARAC 

:693d 

17T 

651 

2B 

DEC HL 


6 T 

652 

CD,92,02 

C'ALL VIERGE 
L-JP RAP 1 


17T 

655 

C3,29,02 

:553d 

10T 


Explications : Cette 3ème partie de RAP génère une 
image en 3 .fois. 


La sous-routine suivante que nous appellerons VIERGE 
génère 55 lignes vierges et exécute les programmes en 
mode SLOW. Au préalable on pousse dans HL l'adresse 
du premier octet du fichier d'affichage et on fait 
HL 15 =1. 

La sous-routine CARAC génère le texte. Au préalable, 
on fait B=25d, C=1 et A=245d. A est un nombre avec 
signe, il représente - 11 . 

Avant d'appeler pour la 2ème fois la sous-routine VIE- 
GE, on fait DEC HL pour refaire pointer HL sur l'a¬ 
dresse d'un octet du fichier d'affichage qui soit 76 h. 


658 DD,El VIERGE 

POP IX 


14T 

660 FD,4E,28 

LD C,(IY+28) 

:(MARGIN)=55d 

19T 

663 FD,CB,38,7E 

BIT 7,(IY+3B) 

:(CDFLAG) 

20T 

667 28,0C 

^JR Z, 68 ld 


12T/7T 

669 79 

LD A,C 

:A=55d 

4ï 

670 ED,44 

NEG 

:A=201d(-55) 

8 T 

672 3C 

INC A 

:A= 202 d(-54) 

HT 

673 08 

EX AF,A'F 1 

:A dans A' 

4T 

674 D3,FE 

OUT (FE),A 

: connecte NMI 

11 T 

676 El 

POP HL 


1 0T 

677 DI 

POP DE 


10T 

678 Cl 

POP BC 


10T 

679 Fl 

POP AF 


10T 

680 C9 

RET 


10T 

681 3E,FC 

U LD A,FC 

:A=252d(-4) 

7T 

683 06,01 

LD B01 


7T 

685 CD,B5,02 

CALL CARAC 


17T 

688 2B 

DEC HL 


6 T 

689 E3 

EX (SP),HL 

: tempo 

19T 

690 E3 

EX (SP),HL 

: tempo 

19T 

691 DD.E9 

JP IX 


8 T 


Explications : Cette sous-routine est appélée 2 fois 
par un CALL dans RAP3, ce qui pousse l'adresse de re¬ 
tour 64ld puis 655d dans la pile. POP IX a pour but 
de sauvegarder cette adresse dans IX et de libérer 
ainsi la pile de 2 octets. 

(CDFLAG) =1 ? en slow d'où Z=0 


En SLOW on sauvegarde A dans A' (fait partie de la 
2ème série de registres du ZSOA) puis vient l'instruc¬ 
tion OUT (FE),A. Cette instruction donne au C.I. 1 la 
possibilité d'interrompre le Z80A en mettant oV. sur 
la ligne NMÏ toutes les 208T (donc en même temps que 
l'impulsion de synchro ligne qui, elle, est générée 
tout le temps). 

Continuons la description du microprocesseur Z80A en 
reprenant la figure 1. Le Z80A peut etre interrompu 
dans son travail de 3 façons différentes : en mettant 
sur une de ses 3 lignes d'interruption : 

- BÏÏSRQ interruption la plus prioritaire 

- NMÏ interruption non masquable : 2ème priorité 

- ÏNT interrutpion masquable que nous verrons plus 
loin. 

Quand la ligne NMÏ =0 le Z80A exécute : 


(SP-1) = PC haut ) 

(SP-2) = PC bas ) sauve PC 


SP 

= SP-2 

) 


IFF2 

= IFF1 

pour 

préserver un El ou un DI 

IFF1 

= 0 

pour 

empêcher un INT 

PC 

= 0066 h 

saut 

à 102 d 


Ce sont des pseudo-instructions et non des instruc¬ 
tions car celles-ci sont extraites de la mémoire alors 
que celles-là sont microprogrammées dans le Z80A. Il 
y a 2 flip/flop dans le Z80A. Le IFF1 est mis dans 
IFF2 pour préserver un El ou un DI programmé. 

On met 0 dans IFF1 pour empêcher toute interruption 
de priorité inférieure tant qu'on exécute NMI. Avant 
d'exécuter ces pseudo-instructions, le Z80A termine 
l'instruction en cours. 

LA ROUTINE NMI 


Quand NMI = 0 (toutes les 64 microsec. quand OUT (FE), 
A a été programmé) le microprocesseur sauve le PC dans 
la pile, manipule les flip flops, met 66 h dans PC d'où 
un saut à : 


102 

08 NMI 

EX AF,A'F' 

: retrouve A 

4T 

103 

3C 

INC A 


4T 

104 

FA, 6 D,00 

pJP M,109d 


10T 

107 

28,02 r 

4-jr Z,111d 


12T/7Ï 

109 

08 

UeX AF.A'F' 


4T 

110 

C9 

RET 


10T 

111 

08 L 

-> EX AF, A'F' 


4T 

112 

F5 

PUSH AF 


11T 

113 

C5 

PUSH BC 


11T 

114 

D5 

PUSH DE 


11T 

115 

E5 

PUSH HL 


11T 

116 

2A,0C,40 

LD HL,(4Q0C) 

:(D-FILE) 

1 6 T 

119 

CB, FC 

SET 7,H 

: HL 15 =1 

8 T 

121 

76 

HALT 

: tempo 

HT 

122 

D3,FD 

OUT(FD),A 

:déconnecte 

NM111T 

124 

DD,E9 

JP IX 


8 T 
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Quand le Z80A reçoit une instruction HALT, il exécute 
des NOP jusqu'à réception d'une interruption. Quand 
la 56èrae interruption NMI apparaît, le PC (122d) est 
sauvé dans la pile. Ensuite INC A fait A=1, donc A 
n'est ni négatif, ni nul, par suite on exécute JP m, 
JR Z, EX AF puis RET qui retourne à 122d. L'instruc- 
tion OUT CFD),A supprime la génération des NMI par le 
C.I. 1. Ensuite JP IX saute à 641d (au 2ème appel de 
VIERGE le saut se fera à 655d). 


La ROM mettra un octet de la matric sur D0'-D7' qui 
sera lu par le C.I. 1 et celui-ci enverra ces signaux 
vers le modulateur U.H.F. à 6,5 MHz. 

LA ROUTINE INT 


Si El a été programmé et s'il n'y a pas de NMI, alors 
quand INT =0 le Z80A exécute : 


Maintenant qu'on a terminé les lignes vierges le ba¬ 
layage horizontal supérieures, on doit afficher le 
texte. A partir d'ici la synchronisation doit être 
tout-à-fait exacte car les 8 lignes nécessaires pour 
une rangée de caractères doivent se succéder exacte¬ 
ment. Or les 54 premières interruptions dues à NMÏ ap¬ 
paraissent quand on exécute un programme. L'instruc¬ 
tion en cours, qui peut être longue, est terminée par 
le Z80A avant d'entamer la procédure NMI. D'où la né¬ 
cessité pour la 55ème interruption d'entrer dans une 
instruction HALT pour synchroniser parfaitement les 
lignes suivantes. 


693 ED,4F CARAC LD R, A 

695 3E,DD LD A,DD 

697 FB El 

698 E9 JP HL 


Explications : Quand on appelle CARAC (voir la routi¬ 
ne RAP3), B=25, C=1 et A=245. On charge A dans R puis 
on fait A=221 qui sera chargé dans R par la suite 
quand INT sera exécuté. El rend possible les interrup¬ 
tions par la ligne INT. Il y aura interruption quand 
INT= 0. JP HL démarre l'affichage des caractères. 

Continuons la description du Z80A en reprenant la fi¬ 
gure 1. L'interruption masquable est possible dès qu' 
on a programmé un El. A partir de ce moment quant INT 
=0 il y aura interruption. Comme ÏNÏ est relié à A 6 
(ligne du bus d'adresses) c'est quand A6=0 que l'in¬ 
terruption apparaîtra. Il y a 3 sortes possibles d'in¬ 
terruption masquable selon le mode programmé : o, 1 
ou 2. On a mis le mode 1 à l'initialisation. Dans ce 
mode 1, le Z80A exécute : 

(SP- 1 ) = PC haut ) 

(SP-2) = PC bas ) 

SP = SP - 2 ) 

IFF = 0 
PC = 0038h 


^^Pl-iquons le fonctionnement de C.I. 1 au moment de 
JP HL. Cette instruction place HL dans le PC. Le Z80A 
aborde la phase d'extraction et place son PC sur le 
bus d’adresses. Souvenez-vous à la fin de la routine 
NMI on a fait HL 15=1 ; par conséquent A15 = 1 et à ce 
moment le C.I. 1 intervient (figure 2). 

Dès que A15=1, le C.I. 1 stocke l'octet qui vient de 
la RAM en D0-D7. Le C.I. 1 examine D 6 et D7- Si D6=0 
il force une instruction NOP dans le Z80A. Si D6=1 il 
laisse l'octet entrer dans le Z80A. 

Quand le Z80A décode un NOP (ou une autre instruction) 
il place son registre R sur A0-A6 et son registre I 
sur A8-A15 et, quand il exécute le NOP il incrémente 
son registre R. En même temps le C.I. 1 forcera A0'~ 
A 8 ' dans un autre arrangement vers la ROM. Cet autre 
arrangement est : 


sauve PC 

empêche un INT 
saut à 56d 


:R=245(-11) 

9T 

:A=221d(-35) 

7T 

: rend INT possible 

4T 


4T 


AO'-A2' définit une des 8 lignes (1 des 8 octets) des 
matrices de caractères 

A3'-A8' contient les 6 bits les moins significatifs 

du code caractère que le C.I. la stocké com¬ 
me étant l'instruction que le Z80A cherchait 
multiplié par 8 . 

A9-A12 la ROM verra ces bits du registre I 

A13-A15 ne sont pas raccordés à la ROM 


- sauve le PC dans la pile 

- manipule les flip flops 

- met 38h dans PC d'où un saut à 


56 0D INT 

57 C2,45,00 

60 El 

61 05 

62 C 8 

63 CB,D9 
65 ED,4F 

67 FB 

68 E9 

69 DI 

70 C 8 

71 18,F8 


DEC 

C 


rJP 

NZ,69d 


POP 

HL 


DEC 

B 


RET 

Z 


SET 

3,C : 

:C 3 =1 

LD i 

R, A : 

: 221d(-35) 

El 



JP HL 


vPOP 

DE : 

tempo 

RET 

Z : 

tempo 


L- JR 65d 


4T 
10T 
10T 
4T 

11T/5T 
8 T 
9T 
4T 
4T 
10T 
11T/5T 
12T 


Vérifions que les durées sont identiques dans les 2 
cas : 


a 56 

4T 

b 56 

4T 

57 

10T 

57 

10T 

69 

10T 

60 

10T 

70 

5T 

61 

4T 

71 

12 T 

62 

5T 

65 

9T 

63 

8 T 

67 

4T 

65 

9T 

68 

4T 

67 

4T 



68 

4T 


58T 


58T 


A JP HL le microprocesseur exécute 35 NOP, ce qui du¬ 
re 140T. Les pseudo-instructions avant INT durent 
10T. Nous aurons en tout 208T donc juste 64 microsec. 
et les 8 lignes de chaque rangée seront juste l'une 
en dessous de l'autre. 

Explications : Sauf la première fois où il y a une 
mise en place, les fois suivantes s'exécutent, avec 
C =8 (8 lignes par rangée), B=24 (24 rangées) et A=221 
(pour effectuer 35 NOP). 

Après DEC C, si 4 0 on saute à 69, on libère la pile 
de 2 octets puis on saute à 65 où on met 221 dans R, 
puis El pour permettre l'interruption suivante et en¬ 
fin JP HL pour balayer la ligne suivante. 

Quand C=0, on charge le 1er caractère de la rangée 
suivante dans HL puis DEC B, puis ori fait C = 8 (no¬ 
tez que LD C ,8 dure 7T et que SET 3,C fait aussi C = 

8 parce qu'à ce momment C = 0), puis R = 221, puis El 
et enfin le saut JP HL. 


Quand B=0, après avoir envoyé au modulateur les 24 
rangées, RET Z retourne à celui qui a appelé CARAC. 

Exemple : Quand on appelle CARAC, B= 25, C=1 et A=245. 
CARAC fera R=245 puis A=221. N'oublions pas que le 
premier octet du fichier d'affichage contient 76 h. 

Supposons que (D-FILE) = 17000 

H 7 =1 fera HL = 32768 + 17000 = 49768 
en exécutant CARAC, a rrivé à JP HL, on aura : 

PC = 49768 et C.I. 1 intervient 
C.I.1 =( 17000 )= HALT d'où HALT dans le Z80A d'où 
PC = 49769 plus des N0P,_R_sera incrémenté 11 fois 
puis R=0 d'où A6=0 d'où INT =0 

Cette 1ère exécution est une mise en place pour la 
synchronisation : 
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PC = 49769 sauvé dans la plie 
IFF = 0 
PC = 56d 

56 DEC C C=0 

POP HL HL=49769 

DEC B B=24 

SET 3,C C=8 

LD R,A R-22 1 

JP HL PC=49769 et C.I.1 intervient 


PC = 49802 

mis dans 

la pile 

IFF = 0 



PC = 56d 



56 DEC C 

C=7 


POP DE 

DE=49802 

(sans importance) 

LD R,A 

R=221 


JP HL 

PC=49769 

et C.I.1 intervient 


C.I. 1 =(17001)=caract. 

(J'où 

NOP 

dans 

le 

Z80A 

PC=49770 R=221 






C.I. 1 =(17002)=caract. 

d'où 

NÔP 

dans 

le 

Z80A 

PC=49771 B=222 

fi 






h 

C.I.1 =(17032)= caract. 

d 1 où 

NOP 

dans 

le 

Z80A 

PC=49801 R=252 






C.I.1 =(17033)=HALT d'où HALT dans le 

Z80A ; 

PC=49802 R=253 







Ce n'est que quand C.I.1 aura envoyé les 8 lignes de 
balayage que C=0 et alors B est décrémenté et HL=49802 
soit le 1er caractère de la 2ème rangée. Quand B=0, 

RET Z retourne à 651. 


Voilà expliquées d'une manière un peu ardue sans dou¬ 
te et nous nous en excusons - mais technique oblige - 
les routines d'affichage : à leur lecture, vous aurez 
remarqué que les programmeurs de la ROM sont des pro¬ 
grammeurs de haut niveau. Un micro-ordinateur dans sa 
configuration de base doit posséder 4 circuits : 1 
micro-processeur, 1 ROM, 1 RAM et 1 circuit d'entrée/ 
sortie. Le ZX81 ne possède que ces 4 circuits de base 
et voyez quelles ressources il possède. 


puis des NOP internes, R sera incrémenté 3 fois 
puis R=0 d'où INT=0 


.Marcel Henrot 



e PERT à votre profit 




?lUu _. 


Multipliez vos outils rie eestion grâce à ce programme 
de planification automatique. 

PLANIFIEZ A PERTE DE VUE 


Qu'est-ce qu'un P.E.R.T. ? Imaginez que vous dévelop¬ 
piez le projet de construire une maison le plus vite 
possible ; il est clair qu'il y a des tâches qui ne 
peuvent que se succéder : les fondations, les murs, 
le toit ; mais il y en a d'autres qui peuvent être 
exécutées en parallèle ; tuiles et carrelage, électri¬ 
cité et vitrerie, etc. Comment faire coïncider le ma¬ 
ximum de tâches pour achever le projet en un temps 
minimum ? Le problème devient rapidement très diffi¬ 
cile dès que le nombre des tâches devient important : 
c'est là que l'ordinateur intervient pour appliquer 


une méthode célèbre chez les ingénieurs des travaux 
publics et tous les chefs de projets, la méthode PERT 
qui signifie en anglais technique de programmation 
rationnelle. Ce rôle en principe dévolu aux gros or¬ 
dinateurs est très honorablement rempli par votre ZX 
81 qui peut ainsi gérer jusqu'à 99 tâches C30 avec la 
mémoire 16K) et présenter le calendrier complet d'un 
projet complexe en quelques dizaines de secondes ! 

LA DEFINITION DU PROJET 


Le projet doit être décomposé en tâches élémentaires, 
dont la saisie se fait par un dialogue interactif au 
cours duquel l'utilisateur est invité à répondre aux 
questions suivantes : 

- nombre total de tâches 
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- durée d'exécution de chaque tâche 

- tâches mères de chaque tâche 

- tâches filles de chaque tâche 

- date début du projet "au plus tôt" 

- fin du projet "au plus tard" 

Oh définit les tâches mères d'une tâche donnée comme 
étant celles dont la fin conditionne son démarrage ; 
ses tâches filles comme celles dont le démarrage est 
conditionnée par sa fin. Une tâche peut donc : 

- ne pas avoir de mère/avoir une ou plusieurs mères 

- ne pas avoir de fille/avoir une ou plusieurs filles 

Au cours de ce dialogue il est ainsi crée, pour cha¬ 
que tâche, une "fiche de tâche" de la forme de la fi¬ 
gure 1. Les deux dernières rubriques de cette fiche 
sont remplies par le programme après exécution de la 
fonction "planification". Lorsque toutes les tâches 
sont définies, une commande permet de demander l'af¬ 
fichage en séquence de toutes les fiches, avec une 
pause entre chaque affichage pour permettre la véri¬ 
fication. 


FICHE DE TACHE 



N° TACHE 

06 

DUREE 

023 

MERES 

03 04 02 

FILLES 

07 10 13 15 19 

+T0 D/F 

261182 191282 

+TA D/F 

040183 270183 


Dates début et fin au plus tard 
Dates début et fin au plus tôt 


■ Figure 1 


Si on veut modifier les données concernant une ou 
plusieurs tâches, une commande permet d'appeler en 
affichage une fiche déterminée et d'effectuer les mo¬ 
difications. 


La visualisation se fait sous forme d'un diagramme 
de GANTT, encore appelé planning à barres. 


Sur ce planning sont inscrites les dates de début et 
de fin de chaque tâche selon le mode de déroulement 
choisi : au plus tôt ou au plus tard. 


Comme il n'est pas possible de visualiser sur l'écran 
plus de 11 tâches à la fois et que, d'autre part, le 
déroulement chronologique complet (du début à la fin 
du projet) n'est en général pas possible en un seul 
affichage, le programme, une fois lancé sur la fonc¬ 
tion "chronographie", commence par demander la date 
à partir de laquelle on désire visualiser le déroule¬ 
ment et les numéros de la première et de la dernière 
tâche que l'on désir observer. L'utilisateur est donc 
invité à définir 2 "fenêtres". : 


- 1 fenêtre "temporelle" : visualisation depuis la 
date D jusqu'à la date finale du projet 

- 1 fenêtre "spatiale" : visualisation de la tâche X 
à la tâche Y. 


Nanti de ces données, le programme affiche, en une ou 
plusieurs images (selon les "fenêtres spécifiées), la 
chronographie du projet. 

Chaque image est affichée jusqu'à ce que l'utilisateur 
demande le passage à l'image suivante. La visualisa¬ 
tion complète d'un projet se fera, en général, en plu¬ 
sieurs images : 


- d'abord la première fenêtre temporelle et l'ensem¬ 
ble des fenêtres spatiales 

- puis la seconde fenêtre temporelle et, à nouveau, 
l'ensemble des fenêtres spatiales 

- puis la troisième fenêtre temporelle et ainsi de 
suite jusqu'à la dernière fenêtre temporelle et la 
dernière fenêtre spatiale. 


Lors de l'affichage de chaque image, il est possible 
d'en demander l'édition sur imprimante ; l'édition 
consécutive de toutes les images donnera alors le dia¬ 
gramme complet du projet dans les formes des figures 
2 à 5. 


LE CHEMIN CRITIQUE 


AFFICHAGE DU PLANNING 


01020304.0506070809 


01 01 83 


32 01 83 


03 01 83 


04 01 83 


05 01 83 


06 01 83 


Figure 2 


La notion de chemin critique apparaît lorsque le pro¬ 
jet doit s'exécuter avec une date de début et une da¬ 
te de fin telles qu'une des tâches, ou l'enchaînement 
de plusieurs tâches, occupe exactement le temps impar¬ 
ti . '.. 


Les tâches critiques sont alors celles qui ne dispo¬ 
sent d'aucune marge de temps pour s'exécuter. Ces tâ¬ 
ches critiques apparaissent en noir sur le diagramme 
alors que les autres sont représentées en gris. 

Si les dates de début au plus tôt et de fin au plus 
tard ont été définies telles que le déroulement du 
projet est impossible, le message "temps alloué trop 
court" apparaît en fin d'exécution de la fonction 
"■planification". La fonction est toutefois exécutée 
sans tenir compte des butées .et on peut ensuite en 
demander la chronographie. 

MISE EN OEUVRE DU PROGRAMME 


Un "menu", présenté sur l'écran au lancement du pro¬ 
gramme, permet de choisir entre les fonctions : 
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MENU 


DEFINITION PROJET ; 1 

MODIF.-FICHE TACHE : 2 

REVUE FICHES TACHE : 3 

CHRONOGRAPHIE : 4. 

PLANIFICATION : S 

__ Figure 3 _ 


La fonction à choisir lors de la première mise en oeu¬ 
vre pour un projet donné est bien sûr "définition du 
projet". 

Cette fonction va lancer un dialogue au cours duquel 
seront entrées les valeurs caractéristiques. 

Lorsque l'ensemble des fiches est ainsi constitué, la 
fonction "planification" est lancée automatiquement. 

Cette fonction va effectuer le calcul des dates de 
début et de fin d'exécution pour chaque tâche et pré¬ 
parer les tables pour la visualisation. A la fin de 
la fonction "planification", le menu est à nouveau 
présenté sur l'écran. 

L'utilisateur peut alors demander l'exécution de la 
fonction "chronographie", laquelle procédera comme 
indiqué en IV. Après l'affichage de chaque image, l'u¬ 
tilisateur a la possibilité de demander son édition 
par la frappe de "0", ou le passage à l'image suivan¬ 
te par la frappe de "N". 


MISE A JOUR DU PLANNING 


Le programme et les données propres à un projet ayant 
été mémorisé sur cassette, il est possible de le re¬ 
prendre à tout moment et de procéder, par la fonction 
"modification fiches de tâches", aux changements d'en¬ 
chaînements ou de durées nécessaires. 

L'utilisateur doit ensuite lancer la fonction "plani¬ 
fication" pour recalculer un nouveau planning, puis 
.l'étudier par la fonction "chronographie". 


3";AT lé, 

: 4 (, :AT 12 


S" 


S REH__ _ __ 

3 REM (C)Ü.FLEBUS ET ORDI-5 

4 REM 

9 GOSUB 1000 

10 PRINT RT 0, 14;'•MENU*'; RT 4-, 2 
; "DEFINITION PROJET : 1";RT 6,2 

;"MODIF. FICi-iE TRCHE : 2";RI 8i2 

;"REUUE FICHES TRCHE 
2;"CHRONOGRAPHIE 
,HJ"PLANIFICRTION 
30 LET B $ = INKEY $ 

32 IF B$ = "" THEN GOTO 30 

33 LET B=URL B$ 

34- IF B < 1 OR B >5 THEN GOTO 30 

35 CLS 

36 GOTO 30+570*CB = 1)+7*(B=2)+1 
5*(B=3) +270* (B=4) +30*(B=5) 

37 PRINT "NUM, TRCHE?'* 

38 INPUT Y . 

39 IF Y<1 OR Y >fl THEN GOTO 38 
4.0 GOSUB 630 

4-1 GOTO 10 
4-5 CLS 

4-6 FOR Y = 1 TO R 

4-7 PRINT RT 2,5; "TRCHE ";Y 

4-8 FOR Z=2 TO 10 STEP 2 
4.9 PRINT RT Z+2,5; L$ (Z/2,1 TO 
7);TRB 14; T$ CY ,Z/2) 

50 NEXT Z 

51 PRUSE 100 

52 CLS 

53 NEXT Y 
54. GOTO 8 

60 DIM C*((2*R+3),(R+8)) 

61 FRST 

62 FOR Z=1 TO CR+1) 

64 LET C$£Z,1 TO CR+8) ) =" " 

66 NEXT Z 

68 FOR Z=(fl+2) TO (2*fi+3) 

69 FOR P=*0 TO (R+8) 

70 LET Cffi(Z,P)="." 

71 NEXT P 

72 NEXT Z 

74 PRINT RT 10,0;"DRTE DEBUT R 
U +TOT?" 

75 INPUT C$(l) 

76 PRINT RT 12,17;04(1) 

77 PRINT RT 14,0;"DRTE FIN RU 
+TRRD?" 

78 INPUT C$ ( (R+3) ,1 TO 8) 

7© PRINT RT 16,17;C4((R+3),1 T 


O 8 ) 
80 


PRUSE 250 
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81 CLS 

82 LET E = 1 

83 LET U = 1 

84 FOR Z=1 TO R „ „ 

86 IF G$£Z,3 TO 4) O" ** THEN 
GOTO 94 

88 LET G$ (Z, 16) = "$" . ^ % ' 

89 LET C4(U,(Z+8) TO (Z+8) ) ="23 

90 IF E > = (R+2) THEN GOTO 93 

Il LET T* (Z,4,1 JO 6)=C$(E,1 T 
O 2)+C$(E,4 TO 5)+C$(E,7 TO 8) 

92 GOTO 94 „ _ 

93 LET T* (Z,5,1 TO 6) =C4(U,1 T 
O 2)+C4CU,4 TO 5) +C4 (U/7 TO 8) 

94 NEXT Z 
107 LET E=E+1 
10© GOSUB 130 
lies GOSUB ISO 

111 IF CfcŒ.l TO 8)=C(((E-l),i 
TO 8) THEN GOTO 123 

112 LET C®(E,9 TO (A+8)>=C®(CE- 
1) , 9 TO (A+B)) 

113 LET C®(E,(M+8))="." 

114. IF E> = (A+2) THEN LET C*(E,( 
M+8) TO (M+8) ) =" " 

115 LET G®(M,16)="." 

116 GOSUB S20 

117 LET B=0 

118 FOR Vol TO A _ 

119 IF G®(Y,16)="." THEN LET B- 

s+i 

±20 NEXT Y 

1S1 IF B=R THEN GOTO 730 
122 GOTO 107 

1) , (M+8) TO (M+S) ) =" 

125 LET E=E-1 

126 GOTO 11S 

132 feToï (!.«)-■" THEN GOTO 1 
38 


THEN STOP 


THEN GOTO 132 

THEN GOTO 1 


134- LET 1 = 1 + 1 
135.IF 1=(A+l) 

136 GOTO 132 
138 LET M=I 
14-0 LET 0 = 1 + 1 
14-1 IF J = (A + l) 

142 IF G* (J, 16) = "i 
•^0 

146 IF T j'<'(A + l) THEN GOTO 142 

lit IF T fiBS S |uflL G*(M,13 TO 15) ) 

>ABS (UAL G* (U, 13 TO 15)) THEN L 
5T M=U 

_îii^LET°C=ABS (UAL G®(M,13 TO 1 

il? ÏP R G|tïJg)="Si" THEN LET G $ 
(1,13 TO lBlisTR* (UAL G*(1,13 T 
O 15) -C) 

ÏÜ LET T G*(M,13 TO 15) =TSi (H, 1,1 
TO 3) 

157 RETURN 

161 IF*^eT = (A+2) THEN LET Y=Y + 1 

162 LET U= (UAL T$CM,Y,S TO 6))+ 

1 163 LET U=UAL TSCM,Y,3 TO 4) 

164 LET T=URL T®(M,Y,1 TO 2) 

166 GOSUB 500 

il! LÛT S=UAL G*CM ,13 TO 15£ 

171 IF E > = (A +2) THEN LET S 

1) __„ _ _ 

- - D=3+F 


=S* ( - 


172S8LET _ 

174 LET U=1950 
176 LET U=1 
178 LET T=0 
180 LET U=U+1 

182 GOSUB 500 __ „ 

184 IF D > G THEN GOTO 180 
186 LET U=U-1 
188 LET U=U+1 
190 GOSUB 500 „ 

192 IF D > G THEN GOTO 188 
194 LET U=U-1 
196 GOSUB 500 
198 LET T=D-G 

200 LET C*CE,1 TO g)=STR» T Tn 
202 IF T<10 THEN LET C3(E,1 TO 

2)="0"+STR® T __ ,, 

204 LET CÎ(E,4 TO |)=STR| U 
206 IF U<10 THEN LET C*CE,4 TO 

S 208 <B LÈT T c|(E,7 TO 8)=STA® (U-19 

®ia9HIF E > =(A+2) THEN GOTO 212 
210 LET T4 CM,4,9 TO 14)=C$CE,1 
TO 2)+C4(È;4 TO 5)+C$(E,7 TO B) 

lll l!t U T®(M, 5,9 TO 14)=Ct<E,l 
TO 2)+C®(E,4 TO S)+C8(E,7 TO 8) 
213 RETURN _ _ 

220 FOR Z=17 TO 26 STEP 2 

222 IF G$(M,Z TO (Z+l))= TH 

~224 E LET N B=UAL G®(M,Z TO (Z+l)) 

225 IF G®CB,1 TO 2)= THEN G 

OTO 239 

226 FOR U =3 TO 12 STEP 2 „ 

228 IF G$(B,W TO (U+l))=" TH 

E 230°LET 2 g1uAL G$CB,U TO 
232 IF G® (G, 16) < >" . 

244 

lll l!t t gs(b,i6) =;■»" 

1II^P t e??EI;|?:?^Joto 24 f 

o a l?+clTET4 < TÔ 4 'é)'+C® (E,7 TO é) 
240 GOTO 244 

242 LET T®(B,5,1 TO 6)=C®(E,1 T 
O 2)+C$(E,4 TO 5)+G$(E,7 TO 8) 

244 NEXT Z 

245 RETURN 

302 PRINT RT S,0;"GRRPHE RU +TO 


. _ (U + 1) ) 
THEN GOTO 


T: CODE=l" 

304 PRINT RT 7,0; 
RRD: CODE=2" 


•GRRPHE RU + T 






306 LET D$=INKEY $ 

307 IF D i = " " THEN GOTO 306 

308 CLS 

^309 GOTO 306+4* (Di = M 1") +6* (D$ = " 

^310 PRINT RT 10,5j"GRAPHE RU + 
TOT" 

311 GOTO 313 

312gftPR XNT RT 10,6; "GRAPHE RU + 
TARD" 

313 PAUSE 100 

314- LET D =UAL Di 

316 IF D = 1 THEN GOTO 324- 

318 LET U=(A+2) 

319 LET U =0 

320 LET E=U 
322 GOTO 350 
324- LET U = 1 

325 LET E=U 

326 LET U=H 
350 CLS 

352 PRINT RT 10,0;"DATE DEB. UX 

su? " ; 

354- INPUT B$ 

355 PRINT B$ 

356 PRINT RT 15,0;"DEPUIS TACHE 

'358 INPUT K 

359 P RINT K 

360 IF K <1 OR K >A THEN GOTO 356 
3620PRINT RT 17"JUSQUE TACHE 

' 364- INPUT L 

365 PRINT L 

366 IF L < = K OR L > R THEN GOTO 36 

2 

388 PRUSE 100 
370 CLS 

372 FRST 

373 LET F = 0 
374- LET N =K 

375 LET M=N 

376 LET Ds<l-N).+ 1 

377 LET U = 1 

378 IF D >11 THEN LET D = ll 

379 DIM Pi (22) 

330 FOR 2=1 TO D 
384- LET C = INT (N/10) 

386 LET Pi(U TO (U+l))=STR$ C+S 
TRi (N-(C*10)) 

388 LET U=UI+2 
390 LET N=N+1 

392 NEXT Z 

393 PRINT RT 0,9; P$ 

394- 1_ET S=999999 

395 FOR Z=U TO U 

396 LET N=URL (B$ (7 TO 8)+B$(4 
TO 5) +B$ (1 TO 2) ) 

398 LET C=URL (C$(Z,7 TO 8)+C£( 
2,4. TO 5)+Ci(Z,l TO 2)) 

4.00 IF RBS (N-C) <B THEN GOTO 4-0 
3 

4-01 NEXT Z 
4-02 GOTO 426 

403 LET B=ABS (N-C) 

404 LET Q=Z 

405 GOTO 401 

426 LET X =3 

427 IF E > = (R +2) THEN GOTO 446 

428 FOR N=Q TQ H 

429 GOSUB 519 

430 NEXT N 

432 INPUT R$ 

433 IF R$ = "0'- THEN COPY 

436 IF D <11 THEN GOTO 8 

437 LET F =F +1 

438 LET N = 11*F +1 

439 LET M=N 

440 LET D=L-11*F 

441 GOTO 377 

446 FOR N=Q TO (A+2) STEP -1 
448 GOSUB 519 
450 NEXT N 
452 GOTO 431 

500 IF 3 > U THEN GOTO 514 
502 LET J=U + 1 
504 LET I=U 

506 LET R = INT (365.25*1) 

508 LET O = INT (30.6*J) 

51© LET G=R+Q+T-621049 
512 RETURN 
514 LET I=U-1 
516 LET J =U +13 

518 GOTO 506 

519 PRINT RT X,0;Ci(N,l TO 8); 

520 DIM Pi C2 *D) 

coq I pr-r* V-74.H 

524 FOR U=1 TO (2*D-1) STEP 2 

526 LET Y =Y +1 

52© LET P$ (U) =C$(N,Y) 

530 NEXT U 

531 FOR X=X TO (X+3) 

532 PRINT RT X,10;Pi 

534 IF X >18 THEN GOTO 537 

535 NEXT X 

536 RETURN 

537 GOTO 545 ' 

538 LET X =3 

539 CLS 

542 GOTO 520 

545 INPUT Ri 

547 IF R$="0" THEN COPY 

549 GOTO 538 

60© PRINT "NB DE TACHES? M ; 

601 INPUT R 
604 PRINT R 
606 PRUSE 100 
608 CLS 

610 DIM Ti(R,5,14) 

612 DIM G$(R,26) 

614 PRINT RT 10,5;"DEFINITION D 
ES TRCHES" 

S16 PRUSE 100 
618 FOR Y = 1 TO R 
620 GOSUB 630 
622 NEXT Y 
624 CLS 
626 GOTO 60 

630 CLS 

631 PRINT RT 2,5; "TACHE "; Y 

632 FOR Z =2 TO 6 STEP 2 

633 GOSUB 685 

634 NEXT Z 

635 LET I$=STRi Y 

636 IF Y<10 THEN LET I$="0"+STR 


637 LET G$ (Y) =I$* 

638 LET I=UAL Ü 

639 GOTO 642 

640 GOSUB 685 
S410GOTO 655 

642 LET Z=2 

643 LET Bis"" 

545 GOSUB 680 

646 IF B$=">" THEN GOTO 640 

647 IF Bi="<" THEN GOTO 642 

548 IF 8$="+" THEN RETURN 

649 GOSUB 685 

650 PRINT RT Z+2,14;Bi 

653 LET Ti (I, (Z/2) ) =B| 

654 LET G$ ( X ,13 TO 15) =B$ 

655 FOR Z=4 TO 6 STEP 2 

656 IF Z =4 THEN LET S=3 

657 IF Z=6 THEN LET S=17 

658 FOR X =4 TO 13 STEP 3 

559 LET B$="" 

661 GOSUB 680 

682 IF Bffi = ">" THEN GOTO 673 

S63 IF Bi="<" THEN GOTO 675 

664 GOSUB 685 

665 PRINT RT Z+2,X+10;B$ 

S87SLET Ti(I,(Z/2),X TO (X + l)) = 

3 $ 

668 LET G$ ( I,S TO (S + 1))=B$ 

659 LET S=S+2 

670 NEXT X 

671 NEXT Z 

672 RETURN 

673 GOSUB 686 

674 GOTO 671 

675 GOSUB 685 

676 LET Z=Z-2 

677 IF Z=2 THEN GOTO 643 

678 GOTO 656 

580 PRINT RT Z+2,5;L$ (Z/2,8 TO 
13) 

681 INPUT B $ 

682 RETURN 

^685 PRINT RT Z+2,5; L$ (Z/2,1 TO 

686 RETURN 

730 FOR Z=1 TO R 

732 LET G $(Z,16) =" " 

734 NEXT Z 

740 FOR Z=1 TO R 

750 LET X$=G$(Z,3 TO 12) 

752 LET G$(Z,3 TO 12)=GiCZ,17 T 

O 26) 

754 LET Gi(Z,17 TO 26)=X$ 

756 NEXT Z 

758 IF E > = (R + 2) THEN GOTO 794 

759 LET H=E 

760 LET U=R+3 

762 LET E=U 
770 GOTO 84 

794 FOR Z =(R +2) TO (E-l) 

796 LET C$(Z,1 TO 8)=Ci((Z+l),1 
TO 8) 

798 NEXT Z 

799 LET 0=E 

301 FOR Z=1 TO R 

803 LET Xi=T $(Z,5,1 TO 6) 

804^LET T $(Z,5,1 TO 6)=Ti<Z,5,9 

805 LET Ti(Z,5,9 TO 14)=Xi 
S0623NEXT Z 

811 FOR Z=1 TO R 

812 IF T$(Z,4,1 TO 6)=T$(Z,5,1 
TO 6) AND T$(Z,4,9 TO 14)=T$(Z,5 
,9 TO 14) THEN GOTO 818 

814 NEXT Z 
816 GOTO 825 
818 FOR Y = 1 TO E 

S20 IF Ci (Y, (Z+8) ) ="0§" THEN LET 
Ci (Y, (Z + S) ) ="gg" 

322 NEXT Y ‘ 

824 GOTO 814 

025 IF URL (C$ (H,7 TO S)+C$(H,4 
TO 5) +C$ (H,1 TO 2) ) >URL (Ci(R+2 
.7 TO 8) +Ci (R+2,4 TO 5)+CiCA+2,X 
TO 2)) THEN GOTO 827 
826 GOTO 8 

027 PRINT RT 18,2;"TEMPS RLLOUE 
TROP COURT" 

828 PRUSE 100 

829 GOTO 8 

900 IF Z=6 THEN LET S=17 
9Q10IF Z=4 THEN LET S=3 

902 FOR X =4 TO 13 STEP 3 

903 LET B$="" 

904 FOR U=1 TO 2 

905 PRINT RT (Z+2),5;Li(6) 

906 PRINT RT (Z+2),5;Li(Z/2) 

910 LET. Bi=Bi+INKEYi 

911 IF XNKEYi="" THEN GOTO 905 

912 IF INKEY$=">" THEN GOTO 926 

913 IF INKEYi="<" THEN GOTO 930 

914 LET Ti (I, (Z/2) ,X TO (X + l) ) = 
3$ 

918 LET GiCI,S TO (S+l))=Bi 

919 PRUSE 40 

920 PRINT RT CZ+2),14;Ti(I,(Z/2 
) ) 

921 NEXT U 

922 LET S=.S + 2 

923 NEXT X 

924 RETURN 
926 LET X=13 
928 GOTO 924 

930 IF Z=4 THEN GOTO 642 

932 LET Z=Z-2 

934 LET X =X-3 

936 LET S=S-2 

938 GOTO 900 

1001 DIM L$(6,13) 

1002 LET Li(l)="DUREE 

1003 LET Li (2) ="MERES ga 25=gg" 

1004 LET Li (3) ="FILLES M®" 

1005 LET Li (4) ="+TO D/F” 

1006 LET L$(5)="+TF: D/F" 

1008 SLOU 

1009 CLS 

1010 RETURN 


. J.FLEBUS 


ORDI-5 N° 4 - Juillet 1983 - 45 




jeux 



programmes de jeu 


"JAMAIS UN COUP DE DES N'ABOLIRA LE HASARD..." 


Une routine d'affichage en langage maohine portant 
sur tout l'écran rend ce jeu assez spectaculaire pour 
ceux intéressés par la mise en oeuvre des fonctions 
aléatoires. 


UOTRE TOTAL 

PRRTIEL EST : 5 

UOULEZ-UOUS 

CONTINUER. 

7 in/N-i 

fi UOUS DE JOUER 

UOUS =0 | 

HR 


SBBBBBQL 

2X61 =0 | 

A B ■ 



TOTAL/4- | 

O® 

11 

g 1 

SOMME = S 


i 

■■■1 



1 REM 5@“Y7NOT Y FffiM- RUN TfiN 
a REM E£RND7"7 *»:")$ S?-Y 77 ( 
UNPLOT ; $4. POKE TfiN TRN 

6 REM 

7 REM DE5 

9 REM TcTm . CHANRUD ET QRDI-S 
10 LET T $="fiPPUYEZ SUR UNE TOU 
CHE" 

20 GOSUB 3500 
40 RAHD 
45 LET E£="8 
50 LET A$=" f 
50 CET B* 1 



80 CET U 
85 CET X£=CU*+U*1 (a TQ î 
90 LET Y$=U$+X$ 

ISO LET D=0 
130 LET TJ=D 
140 LET TZX=D 
146 CLS 

150 PRINT RT 15/ 

E POINTS JOUERONS 
PRRTIE 7” 

160 INPUT MfiXI 
165 LET M$ = H TOTflL/ , ‘ +STR$ 
170 LET ÜOUEUR=(RND>.5) 
175 REM - 


EN COMBIEN O 
"NOUS CETTE 


180 GOSUB 450 

182 LET JOUEUR =NÜT JOUEUR 

184 IF JOUEUR THEN PRINT RT 1,0 
j"R UOUS DE JOUER 

185 IF NOT JOUEUR THEN PRINT fiT 
1,0;"R MON TOUR DE JOUER" 

190 LET D=0 
195 LET TP =0 

199 REM - 

200 LET 5=0 
210 LET C.=0 

aïs print fiT 12 , 29 ;" 

216 IF TP =0 THEN GOTO 230 

217 GOSUB 7000 
230 GOSUB 1000 
240 LET D1=DE 
250 LET C=ll 
260 GOSUB 1000 
270 LET D2=DE 
280 LET S=D1+D2 

290 PRINT fiT 12,21;"SOMME = ";S 
300 IF S=7 THEN GOTO 6000 
310 LET S=S+S*D 

320 IF D THEN PRINT fiT 14,21;"X 
2 = S;" PTS" 

330 LET D =(D1=D2) 

332 PRINT fiT 16,0;Y$ 

335 IF D THEN PRINT fiT 16,0;"LE 
PROCHRIN COUP SERfi DOUBLE" 

340 LET TP =TP +5 

350 IF NOT JOUEUR THEN GOTO 500 
360 PRINT fiT 19,0;"UOTRE TOTAL 
PARTIEL EST : "; TP 

390 GOSUB 4000 
392 PRINT AT 14,21;U$ 

395 PRINT RT 21,0;Y* 

400 IF NOT O THEN GOTO 200 
410 LET T J =T J +TP 

430 IF T J > =MAXI THEN GOTO 5000 
440 GOTO 180 

445 REM - 


450 CLS 


453 

PRINT 

TAB 

21; 


454 

PRINT 

TAB 

21; 

"I UOUS 

AB 31; " B** 




455 

PRINT 

TAB 

21; 

"I 

456 

PRINT 

TAB 

21; 

"1 ZX81 

TAB 31; " 1" 




457 

PRINT 

TAB 

21; 

"I 

458 

PRINT 

TAB 

21; 

"1 " ; M$ 

459 

PRINT 

TAB 

21; 



r 

=*•; tzx; 


500 REM ======================= 

|10 r!m MfiIN_fiU_ z X-81 

530 IF (TP>=35 AND D=0 AND MfiXI 
-TJ >40) OR (TP +TZX > =MfiXI) THEN G 
OTO 570 

535 PRINT AT 19,0;"MON TOTfiL PR 
RTIEL = "*.TP 

540 PRINT AT 21,2;"JE CONTINUE* 

545 GOSUB 9000 

546 PRINT AT 14,21;U$ 

548 PRINT AT 21,2,* 

550 GOTO 200 

§70 PRINT RT 19,0;"J RI "JTP;" 
POINTS ; J RRRETE" 

575 GOSUB 9000 

580 LET TZX=TZX+TP _ 

600 IF TZX > =MRXI THEN GOTO 5000 
610 GOTO 180 

1000 REM = = = = = = = = = = = = = = = — = = — = = 

1010 REM TIRAGE _ 

1O20 REM =================-=-- 

1340 LET DE =INT (RND*6) +1 
1050 GOTO 2000+DE*100 
2000 REM 

RFFICHAGE DES DES 
2110 PRINT AT 3,CjE$;RT 4,CjO$;R 

T 5 , c; o$; AT 6,c;o$;fiT 9,c;o$ 

!Î!É PRINT S? Ié?èfâi^T s iS',Bfo S 

2135 1 p6lNT $ flT 13,C;F$ 

2140 RETURN 

2150 REM - 

2200 PRINT AT 3,C;E$ 

2203 PRINT AT 4,C;C$;AT 5,C,*C$ 

2205 PRINT AT 6,C;ü$jAT 7,C,*0$;A 

t 8,c;o$;fiT 9,c;o$ 

2210 PRINT RT 10,C,*D$;RT 11,C;D$ 

2215 PRINT RT 12,C;O* 

2217 PRINT RT 13,C;F$ 

2220 RETURN 

2290 REM -- 

2300 PRINT AT 3,CjE$ 

2305 PRINT fiT 4,C;C$;AT 5,C;C$,*fi 

T 6 , Cj 0$ 

2310 PRINT fiT 7 , C ; B $ ,* AT 8,C;B$;R 
T 9 , c ; O $ 

2320 PRINT AT 10,C;D$;AT 
; AT 12,C;0$ 

2325 PRINT AT 13,C;F$ 

2330 RETURN 

2390 REM - 

2400 PRINT AT 3,C;E$;AT 4,C,*A$;R 
T 5 , C; fi $ 

2405 PRINT AT 6,C;0$;AT 7,C;0$;R 
T 8 , C; 0$ 

2410 PRINT AT 9,C;ü$;fiT 10,C;fi$; 
AT 11,C J A $; AT 12 ,c;o$ 

2415 PRINT AT 13,C;Fi 
2420 RETURN 

2490 REM - 

2500 PRINT RT 3,CjE$;RT 4,CjR$;R 
T 5 A C i R $ 

2510 PRINT AT 6,C;0$;fiT 7,C;B$;R 
T 8 , C; B$ 

2520 PRINT AT 9,C;0$,*AT 1B,C;R$; 
AT 11,C; R $; AT 12,C;0$ 

2525 PRINT AT 13, C;F$ 

2530 RETURN 

2590 REM - 

2600 PRINT AT 3 , C ; E $ ,* AT 4,C;A$;A 
T 5, C; fi$ 

2610 PRINT AT 6,C;0$;AT 7,C;A$;R 
T 

2620 PRINT AT 9,CjO$;AT 10,C;fi$; 
AT 11, C; fi$; AT 12 , C; 0$ 

2625 PRINT AT 13,C;F$ 

2630 RETURN_ 

4010 REM ÔÜÏ"/~NÔN~ 

4025 PRINT AT 21,0J"UOULEZ-UOUS 
CONTINUER 7 (O/N)" 

4030 IF INKEY$="" THEN GOTO 4030 
4040 LET 0=C0DE INKEY$=51 
4050 RETURN 

5000 REM sssasssnsasBsasssss as-as ss = 
5010 REM FIN DE PARTIE 

5020 REM ======================= 

5030 GOSUB 450 

5040 IF TZX >T J THEN GOTO 5100 
5050 PRINT AT 10,9;"BRRÜQ...";TR 
B 10,,,"UOUS AUEZ GAGNE" 

5060 PRINT AT 20,0;"POUR UNE RUT 
RE PARTIE", T$ 

5070 IF INKEY $ < >"" THEN GOTO 40 
5080 GOTO 5060 

5100 PRINT AT 9,0;"CETTE FOIS,"; 
f(T 11, lo; "C EST MOI OUI RI GAGNE 

5110 GOTO 5060 

5999 STOP 

6000 REM ======================= 

6301 REM 7 POINTS.,* 

6002 REM ======================= 

6010 FOR. 1=1 TQ a 
6020 CLS 

5030 LET USR.=USPL 16514 
6040 «EXT Z 
6070 GOTO 160 

7000 REM ======================= 

EFFACEMENT DES DES 


7010 LET USR=USR 16533 
7030 RETURN 
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9000 REM ==================== 

9005 REM TEMPORISATION 

9010 REM ==================== 

9020 FOR H=1 TO 10 
9030 NEXT H 
904-0 RETURN 

9500 REM ==================== 

REGLE5 DU JEU 


9510 PRINT TAB 9; 


SEPT-ZERO 


9520 PAINT , , APRES AVOIR FIXE L. 
E NOMBRE DE","POINTS fl ATTEINDRE 
POUR GAGNER" /"LA PARTIE ,LE PRIN 
CIPE DU JEU ESTLE SUIUANT:" 

9530 PRINT , , “SS TANT OU" "UN JOUE 
UR R LA NAIN","IL PEUT RELANCER 
LES DEUX DES ETAOCUMULER LES PDI 
NTS OBTENUS" ' 

954-0 PRINT "El CEPENDANT POUR QUE 
CES POINTS SOIENT DEFINITIUEMEN 
T ACQUIS, IL FAUT SAUOIR S" "ARRET¬ 
ER RUANT D;; m AUOIR UN JET QUI DON 

Sisf^ÎN-r""H DE PLUS , SI ON TIRE 
UNE PAIRE, LES P0INT5 DU TOUR S 
UIURNT SER- ONT DOUBLES" 

9560 PRINT ,,T$ 

9570 IF INKEY $ = " " THEN GOTO 9570 

9580 RETURN 

9900 SAUE "SEPT-ZERH" 

9910 RUN 


A. Chanaud 


LE SOLITAIRE 


Certains psychologues prétendent que la passion des 
ordinateurs est une affaire de solitaire : ils vont 
être effarés de voir qu'on vous propose de jouer au 
solitaire avec un ordinateur ! 


**SOLITAIRE** 



*EN CAS* 

D ARRET DU 
PROGRAMME 
ENTREZ : 
"GOTO 170" 


ENTREZ LES NUMEROS DES CASES 
DEPART T ARRIUEE ? 


POUR TERMINER LE UEU,ENTREZ:" S" 

1 REM JEU DE SOLITAIRE 

1 rIm COQ. TURPIN ET ORDI —5 
10 FAST 
20 DIM A $ (79 3 
30 FOR A = 1 TO 79 
4.0 LET A $ ( A 3 ="$3" 

50 IF A>12 AND A<16 OR A>22 AN 
D A<26 OR A>30 AND A<53 OR A>62 
AND A < 66 OR A>72 AND A<76 THEN L 
ET PIS ( A) s" * " 

60 IF A =4-4- THEN LET A$ (Ai 
70 IF A =4.0 OR A =50 OR A=38 OR 
A =43 THEN LET A$ CA) = "{$" 

80 FOR Bd TO 7 

90 IF A=<CB*10)+9> THEN LET AS 
(A) =" " 

100 NEXT B 
110 MEXT A 
120 LET S*="iæg5 
130 LET Z=32 

14.0 LET- C$ = "FELICITATIONS 

150 SLOU 

160 GOSÜB 1000 

170 PRINT AT 0,8;"**50LITAIRE** 

180 IF Z = I AND A$ C4.4.) ="*" THEN 
PRINT RT 19,2;C$ 

190 LET C=1 

200 LET D=2 

210 PRINT AT 

220 LET D=D+1 

230 PRINT AT D,10; 

240 FOR fl=C TO C+8 
250 PRINT A$(A3; 

260 NEXT A 

270 PRINT RT 3,19;" '* 

280 LET C =C+10 
290 PRINT 

300 IFCB00 THEN PRINT AT D + 1,1 

310 IF C =80 THEN GOTO 340 

320 IF C=ll THEN LET C=10 

330 GOTO 220 

340 LET D =2 

350 FOR fl=l TO 9 

360 LET D=D +1 

370 PRINT RT D,9/B$CA) 

380 NEXT fl , , É 

390 IF Z=1 AND A$C44)="*" THEN 
GOTO 790 

400 IF Z=32 THEN GOSUB 2000 
410 PRINT AT 12,7;" 

420 PRINT AT 3,20; " *EM CAS*" 
430 PRINT AT 4,20;"D ARRET - OU" 
440 PRINT RT S,20;"PROGRAMME" 
450 PRINT AT S ,2©> " ENTREZ; " 
460 PRINT RT 7,20; """GOTO 170"" 


470 PRINT AT 14,0; "ENTREZ LES N 
UMEROS DES CASES 
480 PRINT AT 16,2;"DEPART 7 
ARRIUEE 7 

490 PRINT AT 17,2;** 

500 PRINT AT 21,0;"POUR TERMINE 

R LE JEU,ENTREZ :""S. 

510 XNPUT D$ 

520 XF D£=" S" THEN GOTO 700 
530 LET E=yftL £Vg 

54-0 IF E '.1 '3. QP E > 75- THEN GOTO- 6- 
50 

SS0 PRINT AT 16,9;E 
560 INPUT F 

570 PRINT AT 16,25;F _ 

550 XF AS5 S'E-F/ =2 OR ASïs X fc - F 
=20 THEN GOTO 600 
590 GOTO 650 

SOO IF A$ CE.* ="SB" OR AïMF.X T 

HEM GOTO 850 

SIS TF flÿ VEJt < > OR A$ VF.I < > " , " 

THEN GOTO SS© iWti ___ 

520 IF A£ME4FX ..’R* ="JS5" THEN SOT 
O 6SO 

630 IF A$ C CE+F) /*2) =" ■ " THEN GOT 
O 650 

640 GOTO 700 . 

650 P RINT AT 18.2; " gEEBiBBBHHi 

660 PRINT AT 19,2; 

i2ï=r 

670 INPUT E$ 

680 PRINT AT 18,2;" 


690 GOTO 480 
700 LET R* CE) =" . ** 

710 LET A$CCE+F)/2)="." 

720 LET R${F)="*“ 

730 LET Z=Z-1 
740 GOTO 170 
750 FOR A=13 TO 75 
760 IF AS (A-) ="*“ AND A$CA+li<>" 
*" OR fl$CA+103<>"*" THEN GOTO 79 
0 

770 NEXT C 
7S0 GOTO 170 
790 CLS 

800 PRINT AT 11,6;"SCORE :";32- 
Z 

810 PRINT AT 21,0; 

820 STOP 

1000 PRINT AT 14,2;"LE BUT EST D 

EFFACER LES""*'. 

1010 PRINT AT 16,2;"-EN SAUTANT 
UERS UN"". .. 

1020 PRINT AT 17,2;"-SANS ALLER 
EN DIAGONALE" 

1030 PRINT AT 21,0;”L""*""RESTAN 
TE DOIT ETRE EN 4 4~ u 
1040 RETURN 
2000 PRINT AT 12,7;- 


MSIsj " 

2010 INPUT E$ 
2020 RETURN 


PAC-MAN 


0. Turpin 


Ce jeu très rapide est basé sur une longue routine 
en langage machine : le détail des codes est repro¬ 
duit mais la REM qui la contient figure également à 
la liste pour vérification. 



10 REH E£RND n ?"«,6??“3 «*6775005 
677EIRND" 7 < M S'?'? V 7“ «*677*7 «*66837 
?5»70 • 70 » 70 « 70 . ) E£RND" M ««OÜU9RN 

DCHR $ RUN TAB LLIST RNDUARNDCHR$ 
TO ATN T?U9RNDCHR$ LORD TflB PRU 
5E RNDUARNDCHRÆ RUN ATN 77U9RNDC 
HRJ LORD TAB “INKEYSUARNDCHR$ TO 
ATN 77U9RNDCHR$ LORD TAB >INKEY 
$UARNDCHR$ LORD ATN 7U9RNDCH 

R s HCOS J*) : COPY $TRB 3 INKEY $|TR 
3 1INKEY$ FAST "5 RZ GOSUB P17 F 
A ST UAL STRjS E£RND“ ? “DLN STEP 75 
-3N AT LPRINT FAST E777777 LPRINT 
FAST UAL STR $ GOSUB 777F£RND"?n 
jLN STEP 7SGN AT LPRINT FRST E7? 
3PTRB 7INKEYSGH LPRINT ASN 77 FA 
ST E77Ufc7?“ 5 "75?f GOSUB P1777 LP 
R INT FAST E77U«77"ÊJ «J3CHR$ &TRB 
S-? N £ii Y$ m 7 n GOSUB PIS77 LPRINT FA 
3 Ir»?@4 U 3 ?7 5 fî z gosub pi"? «Ceos 

LPRINT FAST E07U077“5 RZ GOSUB P 
I a 7 %610? LPRINT FAST RZ GOSUB 77 
? GOSUB PIS9TAB ^PIGH LPRINT ASN 
®7 FAST STR $ 3 5 ;RZ GOSUB 777 G 
OSUB PI89TRB 7PIGHSGN LPRINT ASN 
07 FAST RZ LOAD 777 GOSUB PI89T 
AB SPIGH LPRINT ASN 0? FRST STRS 
35 ;RZ GOSUB 777 DIM PI89TRB 7P 
IGHSGN LPRINT ASN 07 FAST RZ GOS 
‘JB 7TRB 7PIGH LPRINT ASN 0? FAST 
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STR $ )5 RZ GOSUB ? GOSUB 789TAB 
ÉPIGHSGN LPRINT RSN H? FflST RZ 
GOSUB ?E? GOSUB PI89TAB 0PIGH LP 
R INT fiSN El? FRST STR $ )5 RZ 0OSU 
a ? GOSUB ?S?RZ GOSUB PIB9TRB fflP 
XGHSGN LPRXNT RSN S? FRST GOSUB 
???RZ GOSUB PISQTflB COS PIGH LPR 
INT RSN >? FRST GOSUB ???RZ GOSU 
3 PI89TRB >=PIGH LPRXNT RSN fl?G)S 
FRST E£RND" LPRINT 7C 

'1RS 7TRB “7 FRST E£RND® “ %OBI LPR 
INT 7CHRJS COS TRB =7 FRST E£RND P 
g mOÉLLPRXNT 7CHR$ MTRB 97 FRST 
E£RND a [E ««G®. LPRINT ?CHR$ STAB 07 
FRST E£RND* UNPLOT a «aOS LPRINT 
7RBS RNDQj$F7=OS5TAN G3S97F=»OBTRN ©/& 
13 5 ïtt GOSUB PI=Q0TfiN QÉ" 5 GOSUB 
^I$=OBTRN G)j$LN PI?E£RND a M s®0BU77 
KM77TRB 770Mj > --E£RND72 +-4-TRB LN 7 
71TRB RCS 78TRB URL 7TRN “ CBLN C 
3PY 7“ CONT “LN COPY 7*? LN COPY 
?“** LN COPY LN COPY 7TRN Y. 

FRST STR $ LPRINT URZ GOSUB PIRE 
S H 7«« FOR LPRINT 77TRN GX577GE77 
==7RBS RNDQ>5770E777=7RBS RNDU77 

--- --—.. Jm'TC 

77Y 

___ _ __ U9RNDCHR 

<5 COPY TRB 77U9RNDCHR $ COPY RSN 
777RBS RNDTRN TRN TflN 1111111111 
111X1111111111111111111111111111 
ill11111111111111111111111111111 
illlllllllllllllllll111111111111 
11111111111111111111111111111111 
11111111111111111111111111111111 
1111 

11 GOTO 4-00 

12 SRUE "PRC-HRET 

16 GOTO 4-00 
18 POKE 26970/1 



210 LET Rt=US R 165 14. 

212 LET R$ = ''133aSCS" 

214. IF PEEK CP+41S) =CODE "B’ 1 AN 
PEEK (P+72) =CODE “5 M RND PEEK 
( P + 73 ) =CQDE -S** RND R=33 THEN LE 
T = 

215 PRINT RT 3,6;flè_ 

218 PRINT RT 3,6; “BUSH” 

220 IF INKEY$=“" THENGOTO 215 
230 GOTO 18 
4-00 GOSUB 1000 
4-01 CLS 

4.02 PRINT " UITESSC (1...10) ?" 

4-05 LET P=PEEK 16396 +PEEK 16397 
*256+1 
410 INPUT U 

415 IF U<1 OR U>10 THEN GOTO 41 


3 


420 LET U=32-3*U 
430 POKE 16668,U 
450 PRINT ,,"TEMPS 


(50...1000) 



460 INPUT T 

470 POKE 16533,INT (T/256) 

4Q0 POKE 16532,T-256 *(INT (T/25 

: 3> ) 

485 GOSUB 2000 
490 GOTO 18 
,1000 PEINT R^l0^0; l 

1010 PRINT 

usa B H ±z 

1020 PglHT_ 

103 0 PR INT" 

58 KSMS B 

1040 PRINT 

a b b b 

1050 PRINT 

B ■ B B __ 

18 'SJ "CLERGEOT BER 
TRRND ; RT 20,12; , *(C) 19B2" 

1065 LET flÿ = ''Bg HaaSBEESSI 

© > FANTOME < “ 

1068 FOR M = 1 TO 2 
1070 FOR N=2 TO 16 

1075 PRINT RT 4,N~lj" " ; RT 4,31- 
■4 + 1; " * 

1080 PRINT RT 4,N;R$(M);RT 4,31- 
1090 MEXT N 

1100 PRINT RT 6,lljfl$(M+10+1 TO 
H+10+10) 

1110 NEXT M 
1120 PRINT RT 18,0;’ 

UURES : TOUCHES 5~. i: ! 

1130 PRINT RT 20,0;”7., 

BRS.,i,6" 

1140 PRINT RT 21,0;“S.. 

DROITE....8" 

115® JF INK E VSa ,,H THEN GOTO 1150 
1160 RETURN 

2000 PRINT , ,"NOUBLIEZ PRS QUE : " 
3010 PRINT , , ** -UOUS N. RUEZ O . UNE 



SONT DES 


UIE RU DEPRRTLES 
UIES '* 

202© PRINT ,-UOUS REPRENEZ DU 
TEMPS EN PRENANT LR COMMUNI 

CRT ION MM < M " ET ••••>••" ( +256 ) . " 

5030 PRINT ,,"-R LR FIN DIRIGEZ 
UOUS UERS LE MOT 

2040 PRINT ***BONNE CHRN 

2050 * IF INKEY$=***' THEN GOTO 2050 
2060 RETURN 

LSB14- 
1Q5E3 
L6532 
16540 
LQS49 
16558 
16566 
16573 
16581 
16591 
16599 
16606 
16613 
16620 
16527 
16635 
16642 
16649 
16656 
16664 
16671 

16679 
16607 
16694 
16702 
18709 
16716 
16722 
1673© 

16737 
16744 
16751 
16758 
16766 
16773 
16780 
16786 
16793 
16801 
16809 
.16818 
16823 

16831 
16838 
16846 
16853 
16860 
18868 
16874 
16882 
16889 
18896 
18903 
16910 
16918 
16925 
16932 
16939 
16946 
16953 
15960 
16968 
16976 


,42,12,64,1,75,1,9,34,70 
,105,1,31,0,9,34,80,105,33 
,200,0,34,120,105,42,12,64 
,1,35,0,9,34,122,105,1,91 
, 1,G f 34,124,105,1,94,0,9 
,34,126,105,1,182,0,9,34 
,128,105,33,130,105,54,27 
,35,54,27,35,54,27,35,54 
,27,17,0,0,42,12,64,1,50,0 
,9,54,151,58,37,64,214,247 
,194,226,64,58,38,64,214 
,223,204,57,67,58,37,64 
,214,239,194,242,64,58,38 
,64,214,247,204,83,67,58 
,37,64,214,239,194,2,65,56 
,38,64,214,223,204,109,67 
,58,37,64,214,239,194,18 
,65,58,38,64,214,239,204 
,139,67,6,0,74,58,37,64 
,214,127,200,6,17,14,255 
,13,194,31,65,5,194,29,65 

,229,1,33,0,55,63,237,66 
,126,214,SI,225,202,195,67 
,229,197,213,42,12,64,1,73 
,2,4i,205,224,67,209,193 
,225,229,42,121,105,111,98 
,120,105,225,229,197,213 
,237,91,120,121,43,12,64,1 
,87,4,25,205,224,67,209 
,193,225,229,42,120,105,36 
,53,194,110,65,44,45,225 
,202,195 .67,229,42,122,105 
,58,130,105,119,1,33,2,105 
,126,214,139,194 f 137,65,33 
,82,6,237,66,35,122,105 
,126,50,130,121,118,140 
,225,229,42,124,105,58,131 
,105,119,1,165,0,9,127,214 
,128,194,170,65,1,82,2,237 
,66,34,124,105,126,50,143 
,105,54,140,225,229,42,127 
,105,58,132,105,119,1,33,0 

,55,63,237,68,126,214,126 
,194,205,65,1,82.2,9,34 
,126,10S,126,50,132,105,54 
,140,225,229,42,128,105,58 
,133,105,119,1,33,0,55,63 
,237,66,126,214,128,194 
,240,65,1,82,2,9,34,128 
,105,126,50,133,105,54,140 
,225,229,55,63,237,75,122 
,105,237,66,36,37,194,10 
,68,44,45,225,202,169,67 
,229,213,17,33,0,25,55,63 
,237,75,122,105,237,66,36 
,37,194,35,66,44,45,209 
,225,202,169,67,229,55,63 
,239,75,124,105,237,66,36 
,37,194,56,66,44,45,225 
,202,169,67,229,213,17,33 
,0,25,55,63,237,75,124,105 
,233,66,36,37,194,81,66,44 
,45,209,225,202,169,67,229 

.16983,55,63,237,75 , 126,105,237 
18990,66,36,37,194,102,66,44,45 
16998,225,202,169,67,229,213,17 
17005,33,0,55,63,237,82,237,75 

17013.126.105.55.63.237.66.36 
17020,37,194,130,66,44,45,209 
17027,225,202,169,67,229,55,63 

17034.237.75.128.105.237.66.36 

17041.37.194.151.66.44.45.225 
17048,202,169,67,229,213,17,33 
17055,0,55,63,237,82,237,75,128 

17063.105.55.63.237.66.36.37 

17070.194.179.66.44.45.209.225 
17077,202,169,67,229,237,75,70 

17084.105.55.63.237.66.36.37 
17091,194,200,66,44,45,225,202 
17098,18,68,229,237,75,80,105 
17105,55,63,237,66,36,37,194 
17112,220,66,44,45,225,202,38 

17119.68.54.151.229.42.12.64.1 
17127,84,1,9,58,90,105,6,27,12S 
17136,119,225,122,214,110,194,3 
17143,67,229,42,12,64,1,3,2,9 
17152,54,128,225,122,214,200 

17158.194.20.67.229.42.12.64.1 
17166,185,0,9,54,128,225 ,122 
17173,214,50,194,37,67,229,42 
17180,12,64,1,178,0,9,54,128 

17188,225,122,214,150,194,54,67 

17195.229.42.12.64.1.252.1.9.54 
17204,128,225,195,210,64,54,136 
17211,43,126,214,52,204,58,68 
17218,126,214,128,194,73,67,35 
17225,126,214,27,194,80,67,20 

17232.54.151.201.54.136.35.126 

17239.214.52.204.58.68.126.214 

17246.128.194.99.67.43.126.214 
17253,27,194,106,67,20,54,151 
17260,201,54,136,1,33,0,9,126 

17268.214.52.204.58.68.126.214 

17275.128.194.129.67.237.66.126 

17282.214.27.194.136.67.20.54 

17289 
17297 
17304 
17311 
17318 
17325 
17334 
17341 
17348 
17356 
17363 
17370 
17378 
17386 
17394 
17403 
17410 
17417 
17425 
17432 
17439 


,151,201,54,136,1,33,0,237 
,66,126,214,52,204,58,68 
,126,214,128,194,159,67,13 
,126,214,27,194,166,67,20 
,54,151,201,54,136,205,66 
,68,42,12,64,1,50,0,9,54 
,151,58,90,105,61,50,90 
,105,194,117,68,54,136,6 
,22,42,12,64,35,30,21,22 
,32,126,198,128,119,35,21 
,194,205,67,35,29,194,203 
,67,5,194,197,67,201,1,16 
,39,205,255,67,1,232,3,205 
,255,67,1,100,0,205.255,67 
,1,10,0,205,255,67,1,1,0 
,205,255,67,201,62,27,229 
,213,225,60,55,63,237,66 
,210,4,68,9,235,225,119,35 
,201,54,19,33,121,105,52 
,42,60.105,43,126,214,27 
,194,210,64,20,195,210,64 

17446,54,18,33,121,105,52,42,70 
17454,105,35,126,214,27,194,210 
17461,64,20,195,210,64,58,90 
17468,105,60,50,90,105,201,58 
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1X74-75 

174-82 

174-89 

174-96 

17503 

17510 

17517 

17524 

17531 

17538 

17545 

17553 

17661 

17569 

±7577 

17585 

17593 

17601, 
17609, 
17617, 
17625, 
17633, 
17641, 
17649, 
17657, 
17666, 
17673, 
17681, 
17689, 
17697, 
17705, 
17713, 


,130,105,214,151,194,79,68 
,62,136,50,130,105,58,131 
,105,214,151,194,92,68,62 
,136,50,131,105,58,132,105 
,214,151,194,105,68,62,136 
,50,132,105,58,133,105,214 
,151,192,62,136,50,133,105 
,201,58,37,64,214,255,194 
,117,68,58,37,64,214,255 
, 202,125,66,195,210,64,201 
,201,201,29,29,29,29,29,29 
,29,29,29,29,29,29,29,29 
,29,29,29,29,29,29,29,29 
,29,29,29,29,29,29,29,29 
, 29,29,29,29,29,29,29,29 
,29,29,29,29,29,29,29,29 
,29,29,29,29,29,29,29,29 


29,29 
29.. 29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 


,29,29. 
,29,29 . 
,29,29. 
,29,29. 
,29,29, 
, 29 , 29 , 
,29,29, 
,29,29, 
,29,29, 
,29,29, 
,29,29, 
,29,29, 
,29,29, 
,29,29, 
, 29 , 29 , 


29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29,29 
29 29 


,29,29 
,29 .,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 
,29,29 


. B. Clergeot 


BLITZ 


Détruisez le plus d'immeubles possibles en anticipant 
le point de chute de vos bombes ; le jeu ci-dessous 
est plutôt rapide pour du BASIC. 



1 REM BLITZ 
2®REM- 

3 REM (G) B.HIUET ET ORDI-S 

100 CLS __ 

105 PR INT RT 8, 0; " ü 


110 PRINT 

;33 B" 

120 PRINT 

Sî É2 “ 

130 PRINT 

§3 B 

140 PRINT 
Ï3? ES *• 

150 PRINT 

m B , " 

160 PRINT 


m s 
a m 
m m 


m 

B 


170 GOSUB 9000 

180 LET F =PEEK 16396 4-256 ■3-PE EK 1 
*397 

190 LET R=F+34 
200 LET C = 0 
210 CLS 


220 LET 
300 LET 


320 

33© 

340 


E=8 

_B=R 

310 LET R =fl +33 

315 POKE 760 +F,27 

316 POKE 761+F,27 
- FOR Xs762 TO 791 

POKE F +X,27 

LET Y = 33 *INT (3+RND*13) 

350 FOR Z=Y TO 33 STEP -33 
360 POKE X-Z+F,128 
370 NEXT Z 
400 NEXT X 
410 GOSUB 9000 
450 LET B1=B 
460 LET B =B +1 

- IF PEEK B = 118 THEN LET B=B+ 


470 


430 

490 


IF PEEK B- 
IF PEEK B: 


27 THEN GOTO 8950 
; 128 THEN GOTO 890 


500 POKE 51,0 
510 POKE 6,52 

550 IF INKÉY$ = " " THEN GOTO 600 
560 IF E < >8 THEN GOTO 630 
570 LET D=B 
580 LET E=7 

590 GOTO 630 _ 

600 IF E<=S THEN GOTO 4b© 

630 LET D1=D 
640 LET D=D+33 

650 IF PEEK D <=0 THEN GOTO 730 
660 LET |C=C+1 
670 LET lEsE-1 

700 IF PEEK D=27 THEN GOTO 800 
710 IF E=0 THEN GOTO 800 
730 POKE D1,0 
740 POKE D,20 
750 GOTO 450 
800 POKE D1,0 
S10 LET E =8 
820 GOTO 450 
3900ÜPRINT RT 0,0;"BOUM 
3CORE : ";C 

3910 GOSUB 9000 
3920 GOTO 100 


3950 LET C =C + 10 + INT (40*RND) 

3960 GOTO 300 

9000 LET X=SIN SIN SIN SIN SIN P 
I 

9005 IF INKEY$*=" " THEN GOTO 9000 
9010 IF INKEY THEN GOTO 901 

3020 RETURN 


LE COMPTE- EST BON 


, B. Hivet 


Essayez le programme ci-dessous pour voir s'il peut 
rivaliser avec les meilleurs concurrents de l'émis¬ 
sion bien connue. 


1 SL OU 

2 LET X = 1 

3 DIM G CS J 

4 DIM G(6 ) 

5 DIM R(6) 

6 DIM H $ (6,1 ) 

7 DIM H(6) 

8 DIM 1(6) 

9 PRINT RT 5,2;"DONNEZ LES 6 
CHIFFRES 7” 

10 FOR N = 1 TO 6 
20 INPUT B(N) 

30 NEXT N 

35 CLS _ „ 

50 PRINT RT 5,2;"LE CHIFFRE R 
TROUUER 7" 

53 INPUT Cl 

55 CLS 

56 FRST 

57 FOR 0=1 TO 6 

58 DIM E(20) 

59 LET 0=1 

61 FOR P = 1 TO 6 

62 LET R (P) =B (P) 

63 NEXT P 
65 LET C=C1 

80 FOR N=0 TO S 
90 FOR M=1 TO 6 

95 IF R C M) = 0 OR N = M THEN GOTO 
130 

115 LET E= (C-R(N) ) /fl(M) 

11© IF E = INT E THEN GOSUB 4000 
120 IF E=INT E THEN GOTO 1000. 

122 LET E= CC+R (N) ) /R (M) 

123 IF E=INT E THEN GOSUB 4000 
125 IF E=INT E THEN GOTO 2000 
130 NEXT M 

140 NEXT N 

141 LET X = 1 

142 CLS 

143 GOTO 5000 
145 NEXT O 

150 PRINT RT 5,2;"NON «JE NE TRO 
JUE PRS" 

155 STOP 

160 PRINT RT 0,2;"LE COMPTE EST 
BON." 

161 FOR N=1 TO X-l 

162 PRINT RT 18-(N*2) ,5;G (N) ; HS 
(N) ; H (N) ; " = "; I (N) 

163 NEXT N 

165 PRINT RT 2,10;Cl 
168 PRINT RT 20,3; 

170 FOR N=1 TO 6 
ISO PRINT B(N);" * "; 

190 NEXT N 
200 COPY 
210 STOP 

1040 LET B=E*R(M) 

1050 LET D=B+R(N) 

1052 IF R (N) =0 THEN GOTO 1065 

1053 LET GCX)=B 

1054 LET H5 (X) = " + " 

1055 LET H (X) =R (N) 

1056 LET I(X)=D 
1062 LET X=X+1 

1065 IF E=1 THEN GOTO 1080 

1066 LET GCX)=E 
1087 LET H$CX)="X" 

1068 LET H(X)=RCM) 

1069 LET I(X)=B 
1075 LET X=X + 1 
1080 LET C = E 
1090 LET R(N)=0 
1100 LET R(M)=0 

1150 IF E = 1 THEN GOTO 160 
1200 GOTO 80 
3000 LET B=E*fi(M) 

3010 LET D =B-R(N) 

2011 LET G (X) »B 

2012 LET H$ (X) = " —" 

2013 LET H<X)=RCN) 

2014 LET I(X)=D 
2030 GOTO 1062 
4-000 FOR P = 1 TO 20 

4010 IF E=E(P) THEN GOTO 130 
1080 NEXT P 
4500 RETURN 

5000 IF 0=20 THEN GOTO 145 
5010 LET E(Q)sC 
5020 LET 0=0+1 
-5030 GOTO 61 

6000 REM--- 

<3010 REM (C) G. BRRTHEL ET ORDI-5 
*3020 REM LE COMPTE EST BON 


LE COMPTE EST BON. 
512 


8X7=56 

56-5=51 

51X10=5^.0 

510+2=512 


S * 10 * 100 * 5*7*8* 


.G. Barthel 
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Pour ceux qui ont attrappé une tendinite de l'index 
à force de presser les touches de leur clavier (ZX80 
ou ZX81) voilà la solution miracle : une petite exten¬ 
sion, facile à réaliser qui permet d'appuyer directe¬ 
ment sur les quatre touches du curseur et les touches 
EDIT, RUBOUT, FUNCTION et GRAPHICS sans avoir besoin 
de presser simultanément sur la touche SHIFT ! Autre¬ 
ment dit on garde une main libre pour s'éponger le 
front quand le programme devient dur, dur...' Les au¬ 
tres touches du curseur sont à répétition, génial pour 
les corrections. 



On peut ainsi mettre des touches pour : $,=,; 


BROCHAGE DES CI UTILISES (vue de dessus) 


+ + 


CONSTRUCTION 


On utilise 5 Ci-MOS très courants et quelques résis¬ 
tances et diodes, ce qui est peu de choses à côté de 
l'amélioration du confort de frappe. 



CD 4011 CD4016 CD 4081 

LISTE DES COMPOSANTS POUR 8 COMMANDES 


Cette extension est d'une certaine fiabilité puisqu' 
elle fonctionne depuis plus d'un an sur notre appareil 
personnel. 

+ 


Le principe de fonctionnement est très simple. A cha¬ 
que appui d'une des 8 touches de commande, le circuit 
simule l'appui sur la touche SHIFT. Pour la répétition 
automatique des déplacements du curseur, on rajoute 
un circuit retardateur, qui autorise la mise en route 
de la répétition au bout d'un certain temps d'appui 
sur la touche. 



Les interrupteurs simulant les touches seront réali¬ 
sés avec des interrupteurs électroniques (MOS 4016). 

Le retardateur est réalisé à l'aide de RI, R2, R3, DI, 
Cl et Tl. Le temps de retard est réglable par R3. 

Le multivibrateur est formé par NI, N2, R4, R5 et C2. 
La fréquence de répétition est réglable par R4. Atten¬ 
tion, cette fréquence ne peut pas augmenter indéfini¬ 
ment car il faut tenir compte du temps de traitement 
de l'ordinateur pour déplacer le curseur. 

Sur le schéma, la matrice du clavier du ZX est repré¬ 
sentée en traits épais. Il reste, une fois le montage 
réalisé, 3 inters électroniques non utilisés. Pour ra¬ 
jouter des commandes directes, il suffit d'utiliser : 

1 diock D, 1 résistance R et un inter élëct. par tou¬ 
che . 
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ZX81 

Goal Computer 

15, rue de St Quentin 75010 Paris 

Tél. 200.57.71 ouvert tous les jours de 10 h 30 à 19 h 

1er Magasin en France 
spécialiste en programmes, 
extensions et livres 
pour le ZX 81 


(16, 64 K, carte caractères 
claviers, inversions vidéo, 
buzzer, son...) 


N OUVEAU CATALOGUE 

des photo! trucs 1 ' 65 


Interface 
Bug-bite 
DK Tronik’s 
PSS 

Melbourne Publisher 
Downsway 
Kempston 
BI.PACK. 

Picturesque 
JK Greye, MOI, ARTIC 

Q SAVE II .^..360 F 

• Encore plus puissant de 4 à 64 K (22’ à 2’20). 

• Réglage automatique du niveau sonore magnéto. 

• Commutateur ear/mic. 

WARGAMES .150F chaque 

• Cinq titres disponibles : Samouraï, Athène, 

Roman Empire, Péloponèse et Warlord. 

• Simulation de guerre sur écran, jeu de stratégie. 

TRADER PIXEL .200 F 

• Jeu d’aventure en 48 K (mais marche avec 16 K). 

• Graphismes époustouflants. 

• 3 programmes de 16 K s’enchainant. 

GALAXIE . 165 F 

• Arcade game en Français. 

• Programme assembleur ultra rapide. 

• Défense d’une sortie par hélicoptères. 

MCODER . 160 F 

• 1 er compilateur basic pour ZX. 

• Permet de gagner en vitesse d’exécution. 

• Compile automatiquement du basic en Hexa. 

BLACK CRISTAL.210 F 

• Le plus grand jeu d’aventure jamais écrit pour ZX 

• 100 K de programmes répartis en 2 cassettes 

• Marche avec 16 K grâce à un système de chaînage de programmes 

ZIGOMAR .165 F 

• En Français, éducatif. 

• 3 jeux (lettres, anagrammes et pendus) sur mots réels. 

• Plus de 5000 mots de 6 lettres en mémoire. 

ET TOUJOURS : 

Inversion vidéo (150 F), Carte caractère (555 F), Clavier Klik (480 F), Eduscope II (380 F), 
Pilotage Goal (180 F), 16 K (380 F). 64 K (800 F) - Prix promotionnel. 

Points de vente : PARIS : La règle à calcul 325.68.88, Duriez 329.05.60, Sivéa 522.70.66, JCR 282.19.80, 

Ellix 307.60.81. ROUEN : Conseil Computer (35) 63.36.06. HEROUVILLE : Informatique Sinclair (31) 93.36.55. 

LE MANS : Aesculapple (43) 24.97.80. AVIGNON : Ordinasud (90) 85.41.93. NANTES : Microdis (40) 47.53.09. 

Je désire: □ Catalogue □ Eduscope II □ Pilotage □ Chiromancie □ Q SAVE □ Clavier K □ Repeat □ Buzzer 
Joindre 6 F par article pour frais de port Je règle : □ par chèque □ contre-remboursement 



























FAITES-LUI EN VOIR DE TOUTES LES COULEURS 


J&- - 

m v- 
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IL AIMERA ÇA!!! 


ZX81 


Sous la dominante d'un prix sans précédent, parmi les cartes de codage 
couleur, nous vous proposons un produit de grande qualité et facile à monter, 1 à 2 fils 
à raccorder. 

Pas de langage supplémentaire ni d'espace mémoire consacré à la couleur mais par 
la fonction «PRINT» et le mode graphique, les couleurs tournent dans les 
programmes les plus simples comme dans les jeux rapides. 

Textes et couleurs simultanés. Réglages accessibles. 


Jamais l’ordinateur couleur n'a été aussi près dé nos doigts, si facile d accès à votre budget 
Aucune commande particulière autre que la fonction graphique et les lettres de «A» à «H» 
ces dernières. faisant désormais partie des caractères graphiques. 

ZX 81 ... il ne perd plus la mémoire! 

MFMOiRË~PÉBMÂNÉ^ 


Carte C.MOS mémoire permanente, rétention des 
données par 2 piles normales. Extensible à 16 
K par module de 2 K. 

Dans l'esprit SINCLAIR, nous avons développé une 
interface qui a les avantages de la disquette 
(rapidité de lecture et de chargement) pour un 
coût moindre. 

Cette mémoire dispose d'espaces taillables à vos 
besoins, elle est fiable et surtout sauvegardable 
automatiquement quelques soient les aléas 
d'alimentation. Cette carte est enfichable à la 
sortie du bus SINCLAIR à l'aide d'une carte mère 
(livrée avec 2 K fixes et 2 K EPROM dont 1,5 K 
non utilisé). 

Utilisable comme générateur de caractères ou pour 
la haute résolution graphique et ceci au même 
prix. 

C. MOS est destinée à être utilisée 
mémoire de masse. Protégée par 
manoeuvres, 1'EPROM occupe l'espace 
par blocs successifs. 

Peut fonctionner en tant que ROM supplémentaire 
sur un espace 2 K commutable par blocs. Parfait 
pour cpmpte en banque, gestion des stocks, jeux 
sans attente. 

Une cartouche mémoire vraiment protégée, excellente 
pour la mise au point. 


Prix de vente public TTC... 227F 
Chaque module 2 K...72Fttc 


en tant que 
les fausses 
8 K / 10 K 



BON DE COMMANDE 

_ Prénom- 


Ha. 


Société d’Application Micro Informatique 
6, avenue du Général-Leclerc 
91160 LONGJUMEAU 
Tél. 448 40 86 


I Je soussigné, Nom 
1 Adresse - 


Code postal _ 


désire recevoir dans les plus brefs délais (carte couleur sur stock) 
la carte couleur ou la carte mémoire pour ZX 80 ou 81. Je joins le 
montant total et je m’engage à régler les frais d’expédition â 
réception de ma commande. 



Nombre 

TOTAL 

Signature 

carte couleur _395 F TTC 
câble péritel 130 F TTC 





TOTAL 




Je règle par □ Mandat □ Chèque bancaire □ CCP 


Vous trouverez également nos extensions: Règle à calcul • VISMO Paris 13 e • PENTA 16 • PENTA 13 • PENTA 6 • 
SIVEA Nantes • VIDEO TELEMAT REPORT • COMPOKIT • ROBIN Auxerre • MICRO LEADER Dijon 21 • PIED • 
EREL BOUTIQUE • E.S.C. Orléans • M.V.I. • MOTO VERTE Limoges • EPVS • ICV Villemoisson 91 • 


Imprimerie Les Impressions CEPI - 75010 Paris - Imprimé en France - Directeur de la publication Bernard Savonet - Dépôt légal : juillet 1983 


































































































